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Read Me 



READ ME FILE FOR SOS SOURCE CODE DISK 
Publicus — March 1993 



This Macintosh 800K HFS disk contains the complete source code listing for 
the Apple /// computer's operating system, SOS. This source listing is for 
version 1.3 of SOS, the last released SOS. Note that Apple had (to my 
knowledge) 3 SOS releases: 1.0, 1.1, 1.3 (version 1.2 appeares to have not 
been released to the public). Version 1.3 's release date is February 1982. 

SOS may be read as "Sophisticated Operating System" or "Sara's Operating 
System" since the Apple /// computer was code-named "SARA" by Apple Computer. 

The Apple /// was Apple ' s premier business computer system for the time 
period 1980 to 1983. 

This source listing is written in 6502 assembly language. The assembler 
used by Apple was an Apple ] [ computer assembler which ran on a networked 
collection of Apple ] [ computers. I have been told by knowledgable /// 
owners that the SOS source code was never ported to an Apple /// even though 
the /// had a nice assembler (as part of the ///'s Pascal development system) . 

For a detailed discussion of SOS see Apple Computer's well-written 
"SOS Reference Manual" series (two volumes) . 

From a historical perspective this source code is of no real use today since 
it is for a discontinued computer system. From a technical perspective this 
source is interesting since it provides a "real world" example of an 
operating system for a microcomputer. From a legal perspective this source 

is rather sensitive since parts of it may be used by Apple in its ProDOS 
operating system for the Apple ] [ series (includes the //e and //GS) . 

Due to the legal ramifications of the SOS source code the author of this 
READ ME file shall remain anonymous. 

This author would very much like to learn a little about how Apple developed 
SOS. If any former /// development team members ever read this file, I hope 
that one of them will write a short "SOS History" and place it in a publically 
accessable area (e.g. CompuServe Information System) . 

Enjoy . . . 
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Source Code Catalog 



000001 


] [] [] [] [] [] [] [] [ 

J LJ LJ LJ LJ LJ LJ LJ L 


] [] 


][][][ 


[] [] [] [] [] 


] [ 


[] [ 


] [] [] [] [] [] 


[] [] 


] [] [ 


000002 


APPLE 


/// 


SOS 1 


3 A] [ SOURCE CODE 


DISK CATALOG LISTIN 


000003 


] [] [] [] [] [] [] [] [ 


] [] 


][][][ 


[][][][][] 


[] [ 


[] [ 


][][][][][] 


[] [] 


] [] [ 


000004 




















000005 


/S0S1.3.0NE 




Size 


Modified 


Time 


File type 


Eof 


Phys 


000006 


SYSGLOB . SRC 




17 


31 -Dec- 8 9 


18 


17 


Asciif ile 


304 


18 


000007 


OPRMSG . SRC 




11 


31-Dec-89 


18 


18 


Asciif ile 


260 


12 


000008 


IPL.SRCl 




25 


31-Dec-89 


18 


19 


Asciif ile 


237 


26 


000009 


IPL.SRC2 




19 


31-Dec-89 


18 


20 


Asciif ile 


208 


20 


000010 


SOSLDR.SRC 




9 


31-Dec-89 


19 


56 


Asciif ile 


455 


10 


000011 


BFM. INIT2 . SRC 




9 


31-Dec-89 


18 


21 


Asciif ile 


371 


10 


000012 


INIT . SRC 




16 


31-Dec-89 


18 


22 


Asciif ile 


194 


17 


000013 


SOSLDR.A.SRC 




12 


31-Dec-89 


18 


34 


Asciif ile 


424 


13 


000014 


SOSLDR.B.SRC 




9 


13-Jan-90 


22 


17 


Asciif ile 


113 


10 


000015 


SOSLDR.C.SRC 




13 


31 -Dec- 8 9 


18 


23 


Asciif ile 


440 


14 


000016 


SOSLDR.D.SRC 




29 


31-Dec-89 


18 


24 


Asciif ile 


28 


30 


000017 


SOSLDR.E . SRC 




16 


31-Dec-89 


18 


25 


Asciif ile 


334 


17 


000018 


SOSLDR.F.SRC 




21 


31-Dec-89 


18 


27 


Asciif ile 


419 


22 


000019 


13 files listed. 


52 


blocks 


available 












000020 




















000021 


/S0S1.3.TW0 




Size 


Modified 


Time 


File type 


Eof 


Phys 


000022 


DISK3.SRC 




9 


31-Dec-89 


18 


53 


Asciif ile 


496 


10 


000023 


DISK3. DATA. SRC 




3 


31-Dec-89 


18 


54 


Asciif ile 


403 


4 


000024 


DISK3 . SUBS . SRC 




13 


31-Dec-89 


18 


55 


Asciif ile 


135 


14 


000025 


DISK3.USEL.SRC 




8 


31-Dec-89 


18 


56 


Asciif ile 


108 


9 


000026 


DISK3.SI0.SRC 




11 


31-Dec-89 


18 


57 


Asciif ile 


249 


12 


000027 


DISKS. WRT. SRC 




7 


31-Dec-89 


18 


57 


Asciif ile 


43 


8 


000028 


DISK3. MAIN. SRC 




10 


31-Dec-89 


18 


58 


Asciif ile 


175 


11 


000029 


SYSERR.SRC 




7 


31-Dec-89 


19 


00 


Asciif ile 


355 


8 


000030 


SCMGR.SRC 




22 


31-Dec-89 


19 


01 


Asciif ile 


500 


23 


000031 


FMGR.SRC 




4 


31-Dec-89 


19 


01 


Asciif ile 


95 


5 


000032 


CFMGR.SRC 




18 


31-Dec-89 


19 


02 


Asciif ile 


44 


19 


000033 


BUFMGR.SRC 




29 


31 -Dec- 8 9 


19 


03 


Asciif ile 


41 


30 


000034 


MEMMGR.A.SRC 




18 


31-Dec-89 


19 


04 


Asciif ile 


357 


19 


000035 


MEMMGR . B . SRC 




18 


31-Dec-89 


19 


05 


Asciif ile 


65 


19 


000036 


MEMMGR.C.SRC 




14 


31-Dec-89 


19 


09 


Asciif ile 


376 


15 


000037 


DEVMGR.SRC 




11 


31-Dec-89 


19 


10 


Asciif ile 


281 


12 


000038 


16 files listed. 


55 


blocks 


available 












000039 




















000040 


/SOS 1.3. THREE 




Size 


Modified 


Time 


File type 


Eof 


Phys 


000041 


UMGR.SRC 




27 


31-Dec-89 


19 


22 


Asciif ile 


350 


28 


000042 


ALLOC 




23 


31-Dec-89 


19 


24 


Asciif ile 


345 


24 


000043 


EQUATES 




19 


31-Dec-89 


20 


55 


Asciif ile 


186 


20 


000044 


FNDFIL 




42 


31-Dec-89 


19 


27 


Asciif ile 


263 


43 


000045 


PRINT 




1 


31-Dec-89 


19 


29 


Asciif ile 


435 


1 


000046 


PATH 




33 


31-Dec-89 


19 


30 


Asciif ile 


497 


34 


000047 


VOLUME 




9 


31-Dec-89 


19 


31 


Asciif ile 


369 


10 


000048 


CREATE 




30 


12-Jan-89 


22 


30 


Asciif ile 


441 


31 


000049 


8 files listed. 


82 blocks available 












000050 




















000051 


/S0S1.3.F0UR 




Size 


Modified 


Time 


File type 


Eof 


Phys 


000052 


SWAPOUT . IN 




21 


31-Dec-89 


19 


47 


Asciif ile 


303 


22 


000053 


CLOSE. EOF 




23 


31-Dec-89 


19 


48 


Asciif ile 


87 


24 


000054 


READ . WRITE 




38 


31-Dec-89 


19 


49 


Asciif ile 


86 


39 


000055 


DESTROY 




28 


31-Dec-89 


19 


50 


Asciif ile 


242 


29 


000056 


POSN . OPEN 




44 


31-Dec-89 


19 


52 


Asciif ile 


243 


45 


000057 


5 files listed. 


114 


blocks 


available 












000058 




















000059 


/S0S1.3.FIVE 




Size 


Modified 


Time 


File type 


Eof 


Phys 


000060 


LCHK 




1 


31-Dec-89 


19 


59 


Asciif ile 


147 


1 


000061 


LC 




1 


31-Dec-89 


20 


00 


Asciif ile 


74 


1 


000062 


COMPILE. BFM 




1 


31-Dec-89 


20 


00 


Asciif ile 


68 


1 
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000063 


COMPILE . SOS 


2 


31-Dec- 


89 


20 


01 


Asciif ile 


97 


3 


000064 


SOS . BLOAD 


1 


31-Dec- 


89 


20 


02 


Asciif ile 


450 


1 


000065 


SOS . LINK 


1 


31-Dec- 


89 


20 


03 


Asciif ile 


170 


1 


000066 


SOS . RENAME 


2 


31-Dec- 


89 


20 


03 


Asciif ile 


11 


3 


000067 


FEBOI .1982 


2 


31-Dec- 


89 


20 


04 


Asciif ile 


64 


3 


000068 


PUBLICRELEASE 


1 


31-Dec- 


89 


20 


05 


Asciif ile 


71 


1 


000069 


COMP . SOS . NOLIST 


2 


31-Dec- 


89 


20 


05 


Asciif ile 


79 


3 


000070 


TCOMP . SOS 


1 


31-Dec- 


89 


20 


06 


Asciif ile 


388 


1 


000071 


SOSORG 


5 


31-Dec- 


89 


20 


07 


Asciif ile 


428 


6 


000072 


C.S 


1 


31-Dec- 


89 


20 


08 


Asciif ile 


116 


1 


000073 


C.BI2 


1 


31-Dec- 


89 


20 


09 


Asciif ile 


76 


1 


000074 


C3 


1 


31-Dec- 


89 


20 


09 


Asciif ile 


155 


1 


000075 


COMP. OPR. I PL 


1 


31-Dec- 


89 


20 


10 


Asciif ile 


124 


1 


000076 


16 files listed, 244 


blocks 


available 
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Source File Line and Character Counts 



File Name 


Lines 


Chars 


SOS 


ALLOC . TEXT 


S97 


17638 


SOS 


BFM. INIT2 . SRC . TEXT 


292 


7S09 


SOS 


BUFMGR. SRC. TEXT 


789 


1974S 


SOS 


C.BI2 .TEXT 


12 


535 


SOS 


C. S . TEXT 


14 


569 


SOS 


C3 . TEXT 


15 


605 


SOS 


CFMGR. SRC. TEXT 


496 


13356 


SOS 


CLOSE. EOF. TEXT 


410 


17303 


SOS 


COMP.OPR. I PL. TEXT 


15 


594 


SOS 


COM? . SOS . NOLI ST . TEXT 


27 


1055 


SOS 


COMPILE . BFM . TEXT 


IS 


538 


SOS 


COMPILE . SOS . TEXT 


28 


1067 


SOS 


CREATE . TEXT 


547 


23241 


SOS 


DESTROY. TEXT 


482 


21039 


SOS 


DEVMGR. SRC. TEXT 


298 


8289 


SOS 


DISK3 . DATA. SRC . TEXT 


84 


2847 


SOS 


DISK3 .MAIN . SRC . TEXT 


234 


8117 


SOS 


DISKS . SIO. SRC . TEXT 


255 


8500 


SOS 


DISKS. SRC. TEXT 


220 


7736 


SOS 


DISKS . SUBS . SRC . TEXT 


286 


9SS1 


SOS 


DISKS . USEL . SRC . TEXT 


168 


5831 


SOS 


DISKS . WRT . SRC . TEXT 


170 


5611 


SOS 


EQUATES. TEXT 


366 


13973 


SOS 


FEBOl . 1982 .TEXT 


25 


1029 


SOS 


FMGR. SRC. TEXT 


119 


3003 


SOS 


FNDFIL.TEXT 


809 


32436 


SOS 


INIT . SRC . TEXT 


476 


12190 


SOS 


IPL.SRCl.TEXT 


664 


18089 


SOS 


IPL.SRC2.TEXT 


465 


12829 


SOS 


LC . TEXT 


IS 


562 


SOS 


LCHK.TEXT 


16 


659 


SOS 


MEMMGR . A . SRC . TEXT 


486 


13115 


SOS 


MEMMGR . B . SRC . TEXT 


606 


13264 


SOS 


MEMMGR . C . SRC . TEXT 


500 


10657 


SOS 


OPRMSG . SRC . TEXT 


342 


8421 


SOS 


PATH . TEXT 


596 


25582 


SOS 


POSN . OPEN . TEXT 


718 


32672 


SOS 


PRINT . TEXT 


SI 


106S 


SOS 


PUBLICRELEASE . TEXT 


IS 


544 


SOS 


READ . WRITE . TEXT 


669 


28620 


SOS 


SCMGR. SRC. TEXT 


607 


16237 


SOS 


SOS . BLOAD . TEXT 


33 


897 


SOS 


SOS. LINK. TEXT 


26 


633 


SOS 


SOS . RENAME . TEXT 


27 


988 


SOS 


SOSLDR . A . SRC . TEXT 


123 


4449 


SOS 


SOSLDR . B . SRC . TEXT 


85 


3059 


SOS 


SOSLDR. C. SRC. TEXT 


252 


7735 


SOS 


SOSLDR. D. SRC. TEXT 


6S5 


19725 


SOS 


SOSLDR. E. SRC. TEXT 


442 


12539 


SOS 


SOSLDR. F. SRC. TEXT 


585 


16170 


SOS 


SOSLDR. SRC. TEXT 


131 


4618 


SOS 


SOSORG.TEXT 


68 


3844 


SOS 


SWAPOUT . IN . TEXT 


404 


15484 


SOS 


SYSERR. SRC. TEXT 


206 


5470 


SOS 


SYSGLOB . SRC . TEXT 


370 


12894 


SOS 


TCOMP . SOS . TEXT 


20 


844 


SOS 


UMGR. SRC. TEXT 


818 


21588 


SOS. VOLUME. TEXT 


225 


7273 


Total 


17223 


564009 
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Source Code File Listings 



FILE: "SOS. ALLOC. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 



* APPLE /// SOS 1.3 SOURCE CODE FILE: ALLOC 



*************************** 



******** 



ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



DEALL2 



DEALL3 



DEALERR 
DEALERRl 



STX 
PHA 

LDX 
LDA 
CMP 
PLA 
BCC 
TAX 
AND 
TAY 
LDA 
STA 
TXA 
LSR 
ROR 
LSR 
ROR 
LSR 
ROR 
STA 
LSR 
ROL 
LDX 
LDA 
CMP 
BEQ 
JSR 
BCS 
LDA 
LDY 
STA 
LDX 
LDA 
JSR 
BCS 
LDY 
LSR 
BCC 
INC 
LDA 
ORA 
STA 
BCC 
DEC 
LDX 
LDA 
ORA 
STA 
CLC 
RTS 
LDA 
SEC 
RTS 

DFB 
DFB 



PAGE 

LDA 
STA 
JSR 
BCS 
LDY 
STA 
INC 
LDA 



BMCNT 

VCBPTR 

VCB+VCBTBLK+1,X 

BMCNT 

DEALERRl 
#$7 

WHICHBIT, Y 

NOFREE 

BMCNT 
A 

BMCNT 
A 

BMCNT 
A 

BMPTR 

BMCNT 

HALF 

BMTAB 

BMACMAP, X 

BMCNT 

DEALLl 

BMAPUP 

DEALERR 

BMCNT 

fVCBCMAP 

(VCBPTR) , Y 
BMTAB 
BMADEV, X 
GTBMAP 
DEALERR 
BMPTR 
HALF 
DEALL2 
BMADR+1 
NOFREE 

(BMADR) , Y 

(BMADR) , Y 

DEALL3 

BMADR+1 

BMTAB 

#$80 

BMASTAT,X 
BMASTAT,X 



#BITMAPADR 



$80, $40, $20, $10 
8,4,2,1 



#0 

SAPTR 

ALCIBLK 

ERRALCl 

SAPTR 

(TINDX) , Y 

TINDX+1 

SCRTCH+1 



SAVE HIGH ORDER ADDRESS OF BLOCK TO BE FREED. 
SAVE IT 

WHILE THE BITMAP 

DISK ADDRESS IS CHECKED 

TO SEE IF IT MAKES SENSE 

RESTORE 

BRANCH IF IMPOSSIBLE 

GET THE BIT TO BE OR-ED IN. 

(SHIFTING TAKES 7 BYTES, BUT IS SLOWER) 

SAVE BIT PATTERN 

GET LOW BLOCK ADDRESS AGAIN. 

GET POINTER TO BYTE IN BITMAP THAT REPRESENTS 
THE BLOCK ADDRESS. 



SAVE POINTER. 

NOW TRANSFER BIT WHICH SPECIFIES WHICH PAGE OF BITMAP. 

(THIS POINTS TO THE TABLE FOR THE BITMAP BUFFER USED) . 
WHAT IS THE CURRENT MAP 
IS IN CORE BIT MAP THE ONE WE WANT? 
BRANCH IF IN-CORE IS CORRECT. 
PUT CURRENT MAP AWAY. 
PASS BACK ANY ERROR. 
GET DESIRED MAP NUMBER. 

AND MAKE IT CURRENT. 



READ IT INTO THE BUFFER, 
INDEX TO BYTE. 

BRANCH IF ON PAGE ONE OF BITMAP. 
THE INDIVIDUAL BIT. 

BRANCH IF ADDRESS IS PROPER 
MARK BITMAP AS MODIFIED. 



BIT MAP BLOCK NUMBER IMPOSSIBLE 
SAY BIT MAP DISK ADDRESS WRONG 

(PROBABLY DATA MASQUERADING AS INDEX BLOCK) 



ALLOCATION OF THE INDEXES ALWAYS FILLS IN 
STARTING AT THE BEGINNING OF THE BLOCK. 
THIS GETS FIRST INDEX AND SETS UP A 
POINTER TO THE FREE BLOCKS (TO AVOID 
SCANNING THE WHOLE BLOCK EVERY TIME) . 
SAVE INDEX BLOCK ADDRESS (LOW) 

; GET HIGH BYTE OF ADDRESS 
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000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 



ALDXEND 
* 

ALCIBLK 
SRCHFRE 
GETBITSl 



STA 
DEC 
DEC 
BEQ 
INC 
LDY 
LDA 
BNE 
JSR 
BCC 
RTS 

JSR 
BCC 
RTS 



JSR 
BCS 
LDY 
STY 
LDA 
BNE 
INY 
BNE 
INC 
INC 
INC 
LDA 
BNE 
INY 
BNE 
DEC 
INC 
JSR 
BCC 
RTS 
PAGE 

STY 
LDA 
STA 

TYA 
ASL 
ROL 
ASL 
ROL 
ASL 
ROL 
TAX 
LDA 
SEC 
ROL 
BCS 
I NX 
BNE 
LSR 
BCC 
STA 
STX 
LDX 
LDA 
ORA 
STA 
LDY 
LDA 
SBC 
STA 
BCS 
INY 
LDA 
SBC 
STA 
CLC 
LDA 
LDY 
RTS 

PAGE 



(TINDX) , Y 
TINDX+1 
REQL 
ALDXEND 
SAPTR 
BMPTR 
HALF 
SECNDHAF 
GETBITSl 
ALIDXl 



GETBITS2 
ALIDXl 



FNDBMAP 
ERRALCl 
#0 

HALF 

(BMADR) , Y 
BITFOUND 

GETBITSl 
BMADR+1 
HALF 
BASVAL 
(BMADR) , Y 
BITFOUND 

GETBITS2 
BMADR+1 

BASVAL 

NXTBMAP 

SRCHFRE 



BMPTR 

BASVAL 

SCRTCH+1 

A 

SCRTCH+1 
A 

SCRTCH+1 
A 

SCRTCH+1 
(BMADR) , Y 

A 

BOUNCE 

ADCALC 
A 

BOUNCE 
(BMADR) , Y 
SCRTCH 

BMTAB 
#$80 

BMASTAT,X 
BMASTAT,X 
#VCBTFRE 
(VCBPTR) , Y 
#1 

(VCBPTR) , Y 
RETIBLK 

(VCBPTR) , Y 
#0 

(VCBPTR) , Y 

SCRTCH 
SCRTCH+1 



#VCBDEV 



ALCIBLK' ) 



(AND SAVE IT) 

HAS REQUEST BEEN SATIFIED? 
(CARRY IS CLEAR) 
BUMP INDEX POINTER 

GET INDEX POINTER TO LAST ACCESSED BIT GROUP 
WHICH HALF OF MAP? (BOTH BMPTR S HALF SET UP BY 

GET NEXT FREE BLOCK ADDRESS. 
BRANCH IF NO ERROR 



GET NEXT FREE BLOCK ADDRESS FROM SECOND HALF OF BIT MAP 
BRANCH IF NO ERROR. 

RETURN STATUS (CARRY SET INDICATES ERROR) 



GET ADDRESS OF BIT MAP IN 'BMADR' 
BRANCH IF ERROR ENCOUNTERED 

START SEARCH AT BEGINNING OF BIT MAP BLOCK 
INDICATE WHICH HALF (PAGE) WE'RE SEARCHING. 

FREE BLOCKS ARE INDICATED BY 'ON' BITS 

CHECK ALL OF 'EM IN FIRST PAGE. 
BUMP HIGH ADDRESS OF CURRENT BITMAP 
INDICATE SEARCH HAS PROGRESSED TO PAGE 2 
BASE VALUE= BASE ADDRESS/2048 
SEARCH SECOND HALF FOR FREE BLOCK 



RESET BIT MAP ADDRESS TO BEGINNING. 

ADD 2048 OFFSET FOR NEXT PAGE 

GET NEXT BITMAP (IF IT EXISTS) AND UPDATE VCB. 
BRANCH IF NO ERROR ENCOUNTERED. 
RETURN ERROR. 



SAVE INDX POINTER TO VALID BIT GROUP 
SET UP FOR BLOCK ADDRESS CALCULATION 



GET ADDRESS OF BIT PATTERN 
MULTIPLY THIS AND BASVAL BY 



NOW X= LOW ADDRESS WITHIN 7 OF ACTUAL ADDRESS. 

GET BIT PATTERN AGAIN 

MARK RIGHT END OF BYTE. 

FIND LEFT MOST 'ON' BIT 

BRANCH IF FOUND. 

ADJUST LOW ADDRESS 

BRANCH ALWAYS 

RESTORE ALL BUT LEFT MOST BIT TO ORIGINAL POSITION 
LOOP UNTIL MARK (SET ABOVE) MOVES INTO CARRY 
UPDATE BITMAP TO SHOW ALLOCATED BLOCK IN USE. 
SAVE LOW ADDRESS. 

UPDATE BIT MAP BUFFER STATUS 
INDICATE MAP HAS BEEN MODIFIED 
(X IS EITHER OR 6 FOR 
BUFFER 'A' OR 'B' RESPECTIVELY.) 
SUBTRACT 1 FROM TOTAL FREE 
BLOCKS IN VCB TO ACCOUNT FOR NEWLY 
ALLOCATED BLOCK (CARRY IS SET FROM 'BOUNCE') 

; BRANCH IF HI FREE COUNT DOESN'T NEED ADJUSTMENT. 

; ADJUST HIGH COUNT. 

; (CARRY IS CLEAR, SO ACC=ACC-1) 

; INDICATE NO ERROR ENCOUNTERED 
; GET ADDRESS LOW IN ACC. 
; AND HIGH ADDRESS IN Y 

; RETURN ADDRESS OF NEWLY ALLOCATED BLOCK. 



; GET DEVICE NUMBER SO WE DON'T 
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FREEBE 
FREEA 



000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 

000176 USEBUF 
000177 
000178 
000179 

000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 

000193 SOMERRl 

000194 * 
000195 

000196 NXTBMAP 
000197 

000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 

000214 * 

000215 GETA.BU: 
000216 

000217 * 

000218 GETB.BU: 
000219 

000220 * 

000221 * 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 



FNDBMAP 

FNDMAPl 
FRESHMAP 



TRYMAP2 



LDX 
LDA 
CMP 
BEQ 
CMP 
BEQ 
JSR 
BCC 
RTS 

LDX 
STX 
LDY 
BPL 
STX 
JSR 
BCS 
LDX 
LDA 
STA 
LDX 
LDA 
STA 
STA 
STA 
LDA 
STA 
TXA 
EOR 
STA 
TAX 
LDA 
STA 
LDA 
STA 
STA 
CLC 
RTS 

PAGE 

LDY 

LDA 

LSR 
LSR 
LSR 
LSR 
LDY 
CMP 
BEQ 
LDA 
CLC 
ADC 
STA 
LDY 
LDA 
TAX 
JSR 
JMP 

LDX 

BEQ 

LDX 
BNE 



LDY 
LDA 
LDX 

CMP 
BNE 
STX 
LDY 
BMI 
JSR 
BCC 
RTS 

DEX 
BPL 
LDX 



#0 

(VCBPTR) , Y 
BMADEV 
FREEBE 
BMBDEV 
FREEA 
FNDBMAP 
GTTINDX 



#BMTABSZ 

NOFREE 

BMASTAT,X 

USEBUF 

ZPGTEMP 

WRTBMAP 

SOMERRl 

ZPGTEMP 

#0 

BMASTAT,X 

NOFREE 

#0 

BMADEV, X 
TINDX 

BMADR 
BMAMADR, X 
TINDX+1 

#BMTABSZ 
BMTAB 

BMAMADR, X 
BMADR+1 

BMBUFBNK 

SSTIDXH 

SISBMADR 



#VCBTBLK+1 
(VCBPTR) , Y 
A 
A 
A 
A 

#VCBCMAP 
(VCBPTR) , Y 

NOMORBIT 
(VCBPTR) , Y 



(VCBPTR) , Y 
#VCBDEV 
(VCBPTR) , Y 

UPBMAP 
FNDBMAP 

#0 

FRESHMAP 

#BMTABSZ 
FRESHMAP 



#VCBDEV 
(VCBPTR) , Y 
#0 

BMADEV, X 
TRYMAP2 
BMTAB 
BMASTAT, 
BMFOUND 
GTBMAP 
BMFOUND 



ANTICPATE USING BUFFER 'A' . 

USE THE BUFFER USED BY IT! 

IS IT IN BUFFER 'A'? 

IF SO, FREE 'B' ! 

IF NOT, IS IT IN 'B'7 

IF SO, FREE UP BUFFER 'A' 

OTHERWISE, FORCE ALLOCATION FOR ONE OF THE BUFFERS 

NOW TRY AGAIN. 
RETURN ERROR. 

DE-ALLOCATE BUFFER IF NECESSARY 

SAVE WHICH BUFFER WE'RE LOOKIN AT. 

DO WE NEED TO WRITE BUFFER TO FREE IT? 

NO, THEN USE IT. 

SAVE BM BUFFER ID FOR A BIT 

WRITE BM TO OWNING UNIT 

RETURN ANY ERROR (W/0 RELEASING BM) 

FETCH THE BM BUFFER ID 

AND MARK BM BUFFER AS FREE 
GET INDEX TO BUFFER INFO 
MARK STATUS OF BUFFER AS FREE. 
(DEVICE IS NOT ANY DEVICE) 



GET MEMORY ADDRESS OF FREE BUFFER. 

SET UP PROPER HI ADDRESS OF BIT MAP TOO... 
SELECT ALTERNATE BIT MAP TABLE. 
(TO INDICATE WHICH IS BITMAP) 

GET HIGH ADDRESS OF BIT MAP. 

AND BANK PAIR NUMBER. 

INDICATE NO ERRORS 



,X 



FRBMBUF 
#BMTABSZ 



BEFORE BUMPING TO NEXT MAP, 
CHECK TO BE SURE THERE IS 
INDEED A NEXT MAP! 



ARE THERE MORE MAPS? 

BRANCH IF NO MORE TO LOOK AT. 

ADD 1 TO CURRENT MAP 



GO WRITE OUT LAST MAP IF NECESSARY 
READ NEXT BIT MAP INTO BUFFER 



BRANCH ALWAYS 

GET DEVICE NUMBER 
START WITH MAP 'A' 



SAVE POINTER TO BIT MAP INFO TABLE 
IS THIS ONE ALREADY MODIFIED? 
YES, RETURN POINTER IN 'BMADR' 
OTHERWISE READ IN FRESH BIT MAP 
BRANCH IF SUCCESSFUL. 
OTHERWISE, RETURN ERROR. 

WAS LAST FAILURE MAP 'A' 

NO, MUST FREE UP ONE OF THE BUFFERS 

TRY BIT MAP BUFFER 'B'. 
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000237 


JMP 


FNDMAPl 




000238 


PAGE 






000239 








000240 


BMFOUND LDX 


BMTAB 


WHICH TABLE? 


000241 


LDY 


#VCBCMAP 




000242 


LDA 


(VCBPTR) , Y 




000243 


ASL 


A 




000244 


STA 


BASVAL 




000245 


LDA 


BMAMADR, X 


GET HIGH ADDRESS 


000246 


STA 


BMADR+1 




000247 


LDA 


BMBUFBNK 


GET BANK NUMBER OF BUFFER BIT MAP BUFFERS 


000248 


STA 


SISBMADR 




000249 


LDA 


#0 


BUFFERS ALWAYS FALL ON A PAGE BOUNDARY 


000250 


STA 


BMADR 




000251 


CLC 




INDICATE ALL IS VALID AND GOOD! 


000252 


RTS 






000253 








000254 


NOMORBIT LDA 


#OVRERR 


INDICATE REQUEST CAN'T BE FILLED. 


000255 


SEC 




INDICATE ERROR 


000256 


RTS 






000257 








A A A A C A 

00025o 


FRBMBUF SEC 






000259 


LDX 


BMTAB 


FIND OUT WHICH WAS LAST USED. 


000260 


BEQ 


CHKBMB 


IF 'A' WAS USED CHECK 'B' FIRST 


0002 61 


CLC 




INDICATE 'A' IS CHECKED FIRST 


0002 62 


BIT 


BMASTAT 


IS BUFFER 'A' FREE (UNMODIFIED) ? 


000263 


BPL 


GETA. BUF 


YES, USE IT. 


0002 64 


CHKBMB BIT 


BMBSTAT 


IS BUFFER 'B' FREE? 


000265 


BCC 


FREBUFl 


BRANCH IF BOTH ARE USED 


000266 


BPL 


GETB . BUF 


YES . . . 


000267 


BIT 


BMASTAT 


(CHECK 'A') 


000268 


BPL 


GETA . BUF 




000269 


FREBUFl LDX 


#0 




000270 


BCC 


FREBUFA 


BRANCH IF BUFFER 'A' HAS LEAST PRIORITY. 


000271 


LDX 


#BMTABSZ 




000272 


FREBUFA SIX 


ZPGTEMP 


SAVE BM BUFF ID FOR A BIT 


000273 


JSR 


WRTBMAP 


XREG PASSES BM BUFF ID 


000274 


BCS 


NOGO 


ERROR ENCOUNTERED ON WRITING 


000275 


LDX 


ZPGTEMP 


FETCH BM BUFF ID 


000276 


LDA 


#0 




000277 


STA 


BMASTAT, X 


AND MARK BM BUFFER AS FREE 


000278 


BCC 


FNDBMAP 


LOOK AGAIN FOR FRRE BIT MAP BUFFER SPACE 


000279 


NOGO RTS 




RETURN ERROR ON WRITING BM 


000280 








000281 


UPBMAP CPX 


BMADEV 


UPDATE BIT MAP OF DEVICE X 


000282 


BNE 


UPBMl 




000283 


CLC 




FREE BUFFER 'A' IF NEEDED. 


000284 


BIT 


BMASTAT 




000285 


BMI 


FREBUFl 


(CARRY CLEAR FOR BUFFER 'A') 


000286 


RTS 






000287 


PAGE 






000288 


* 






000289 


UPBMl CPX 


BMBDEV 




000290 


BNE 


NOUPDAT 


DON'T UPDATE IF NOT NECESSARY. 


000291 


BIT 


BMBSTAT 




000292 


BMI 


FREBUFl 


(CARRY IS SET) 


000293 


NOUPDAT CLC 






000294 


RTS 




RETURN 'NO ERROR' 


000295 


* 






000296 


CLEARBMS EQU 


* 


MAKE SURE ALL BIT MAPS ASSOCIATED 


000297 


* WITH A DEVICE ARE MARKED INVALID 




000298 


* IF A NEW VOLUME IS 


LOGGED IN ON IT. 




000299 


* INPUT ARG: A REG - 


DEVNUM 




000300 


* X REG PRESERVED 






000301 


LDY 


#0 




000302 


CMP 


BMADEV 




000303 


BNE 


CLRBMl 


BRANCH IF BIT MAP A NOT OWNED 


000304 


BIT 


BMASTAT 




000305 


BMI 


CLRBM2 


BRANCH IF BITMAP A BUSY 


000306 


STY 


BMADEV 


ELSE, CLEAR IT 


000307 


CLRBM2 RTS 




NEED ONLY CLEAR ONE 


000308 


CLRBMl CMP 


BMBDEV 


BIT MAP B? 


000309 


BNE 


CLRBM2 


BRANCH IF BIT MAP B NOT OWNED BY DEVNUM 


000310 


BIT 


BMBSTAT 




000311 


BMI 


CLRBM2 


BRANCH IF BITMAP B BUSY 


000312 


STY 


BMBDEV 


ELSE CLEAR IT 


000313 


RTS 




AND RETURN TO CALLER (NO ERRORS) 


000314 


* 






000315 


GTBMAP STA 


BMADEV, X 


SAVE ACC AS CURRENT DEVICE FOR BUFFER 


000316 


LDA 


BMAMADR, X 


GET HIGH ORDER ADDRESS OF BUFFER 


000317 


STA 


BMADR+1 


SELECTED BY X 
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000318 
000319 
000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 
000392 
000393 
000394 
000395 
000396 
000397 



DROP INTO 



RDGBUF 
SVGCMD 



DOBITMRP 
DOIDX 



RDFRST 
FADDR 



LDA 
STA 
LDY 
LDA 
STA 
CLC 
LDY 
ADC 
STA 
I NY 
LDA 
ADC 
STA 
'RDBMAP' 

PAGE 

LDA 
STA 
LDA 
PHA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
LDX 
JSR 
PLA 
STA 
RTS 

LDA 
JMP 

LDA 
BNE 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
LDX 
EQU 
STA 
STX 
LDA 
STA 
JMP 



LDA 
LDX 
LDY 
STA 

STX 
STY 
LDA 
LDX 
JMP 

LDA 
BNE 
LDA 

LDX 
LDY 
JMP 



BMBUFBNK 
SISBMADR 
#VCBCMAP 
(VCBPTR) , Y 
BMACMAP,X 

IVCBDMAP 
(VCBPTR) , Y 
BMADADR, X 

(VCBPTR) , Y 
#0 

BMADADR+1,X 



#RDCMD 
DHPCMD 
DEVNUM 

BMADEV, X 
DEVNUM 
BMADADR, X 

BLOKNML 

BMADADR+1,X 

BLOKNMH 

BMAMADR, X 

BMBUFBNK 

DOBITMAP 

DEVNUM 



fWRTCMD 
DOBMAP 

#WRTCMD 

SVGCMD 

#RDCMD 

DHPCMD 

BLOKNML 

TTLINK 

BLOKNMH 

TTLINK+1 

#GBUF/256 

#0 

* 

DBUFPH 
SISBPH 
#0 

DBUFPL 
FILEI02 



#WRTCMD 
IDXADRL 
IDXADRH 
DHPCMD 

BLOKNML 
BLOKNMH 
TINDX+1 
SSTIDXH 
DOIDX 

#WRTCMD 

FADDR 

#RDCMD 

DFIL+D.FRST 

DFIL+D.FRST+1 

DOFRST 



AND GET BANK PAIR NUMBER 

OF BOTH BIT MAP BUFFERS 'A' AND 'B' 

GET LOWEST MAP NUMBER WITH FREE BLOCKS IN IT. 

ASSOCIATE THE OFFSET WITH THE BITMAP CONTROL BLOCK 

ADD THIS NUMBER TO THE BASE 
ADDRESS OF FIRST BIT MAP 

SAVE LOW ADDRESS OF BIT MAP TO BE USED. 
NOW GET HIGH DISK ADDRESS OF MAP 
ADD TO THIS THE STATE OF THE CARRY 

SAVE HIGH DISK ADDRESS TOO. 



(X CONTAINS AN INDEX TO DETERMINE WHICH BUFFER) 

SAVE DEVICE COMMAND 

FIX THE 'BIT MAP TRASH BUG' 

BY NOT MUNGING DEVNUM 

GET DEVICE NUMBER. 

; AND MAP'S DISK ADDRESS 



LASTLY GET THE ADDRESS OF THE BUFFER 
AND BANK NUMBER. 

(NOTE: LOW ADDRESS IS FIXED TO ZERO AS THIS IS A BUFFER) 
RESTORE 

THE DEVNUM WE CAME IN WITH! 



WRITE BIT MAP POINTED TO BY X 



SET CALL FOR WRITE. 
BRANCH ALWAYS. 
SET CALL FOR READ. 
PASSED TO DEVICE HANDLER. 
SAVE CURRENT 
GBUF BLOCK 
ADDRESS 

FOR DIRECTORY EXTEND 

GET HIGH ADDRESS OF GENERAL BUFFER 

TO FORCE ACCESS TO NON BANK MEMORY. 



SELECT BANK 

GENERAL PURPOSE BUFFERS ALWAYS 
START ON A PAGE BOUNDARY. 
END VIA DEVICE DISPATCHER. 

GBUF CURRENT ADDRESS 



GET BLOCK ADDRESS OF INDEX BLOCK 
(ENTRY USED BY RD/WRTDFRST) 



HIGH RAM ADDRESS OF INDEX BLOCK 

AND BANK NUMBER. 

AND GO DO REQUESTED OPERATION. 

WRITE FILE'S FIRST BLOCK (USED 

BY CREATE, SO ADDRESS IN 'D.' STUFF). 

(BUFFER ADDRESS IS IN 'TINDX') 



CHN POSN/OPEN, 4, 2 

************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: ALLOC 

************************************************************************* 
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FILE: "SOS. BFM.INIT2. SRC. TEXT" 





************************************************************************* 


000002 


* APPLE /// SOS 1.3 SOURCE 


CODE FILE: 


BFM. 


INIT2 


.SRC 


000003 














************************** 


000004 


* ASSEMBLER: APPLE ] [ 


65 


02 


ASSEMBLER 


from 


APPLE 


COMPUTER TOOLKIT 


000005 
















000006 


SBTL 






"SOS 1.1 


BFM. INIT2" 




A A A A A 

000007 


REL 














A A A A A n 

000008 


INCLUDE 




SOSORG, 6,1 


,254 






000009 


ORG 






ORGBFMI 








A A A A T A 

000010 


MSB 






OFF 








000011 


REP 






60 








000012 


* COPYRIGHT 


(C) 


APPLE COMPUTER INC. 1980 


000013 


* 


ALL 


RIGHTS RESERVED 






000014 


REP 






60 








000015 


* 














A A A A T 

000016 


* BLOCK FILE MANAGER 


INIT2 










000017 


* 














000018 


* SECONDARY INITIALIZATION ROUTINE FOR BLOCK FILE MANAGER 


000019 


* 














A A A A O A 

000020 


* MODIFIED: 03/25/81 


TO 


UTILIZE NEW 








000021 


* DISK DRIVER'S SEEKDSK3 


ROUTINE. 








000022 


* CHANGES MARKED BY 


' D3RRA81084 ' 








000023 
















000024 


* MODIFIED: 08/19/81 


TO 


WORK WITH NEW 








000025 


* SOSLDR MODULE. 














A A A A O 

000026 


REP 






60 








000027 


* 














A A A A O n 

000028 


ENTRY 






BFM . INIT2 








A A A A O A 

000029 


* 














000030 


*EXTRN I. BASE. P ; ENTRY 


IN 


SOSLDR 








000031 


EXTRN 






SYSBANK 








000032 


EXTRN 






SXPAGE 








000033 


EXTRN 






CZPAGE 








A A A A O A 

000034 


EXTRN 






SEEKDSK3 






; IW ul^i\uti/ UJKKAolUo4 


A A A A O IT 

000035 


EXTRN 






NMIDSBL 






; /D3RRA81084 


A A A A O 

000036 


I. BASE. P EQU 






$2 








A A A A O T 

000037 


PAGE 














000038 


* 














000039 


* CONSTANTS 














000040 
















000041 


KERNEL . BASE EQU 






$B800 






; BASE ADDRESS OF SOS KERNEL 


000042 


ROMID EQU 






$A0 






;$F1B9 of new ROM/D3RRA81084 


A A A A A O 

000043 


SLOT EQU 






$60 








000044 


BEGTRK EQU 






$9 








000045 


BEGSECT EQU 






$2 








A A A A A /" 

000046 


ENDSECT EQU 






$6 








000047 
















000048 


* ZERO PAGE 














000049 
















000050 


TRACK EQU 






$99 








000051 


SECTOR EQU 






$98 








A A A A C O 

UUUOoz 


VOLUME EQU 






$9A 








A A A A C 

000053 


KEY EQU 






$E0 






; THRU $E7 


000054 


PREV.K EQU 






KEY+$8 








000055 


XIDX EQU 






KEY+$9 








000056 


I EQU 






KEY+$A 






; & $B 


000057 
















000058 


* ROM ROUTINES 














000059 


* 














000060 


RDADR EQU 






$F1B9 






; REVl 


A A A A 1 

000061 


RDADRX EQU 






$F1BD 






;REV0 


UUUU6Z 


* 














000063 


* HARDWARE LOCATIONS 














000064 


* 














000065 


E . REG EQU 






$FFDF 








000066 


B . REG EQU 






$FFEF 








000067 


MOTORON EQU 






$C089 








000068 


MOTOROFF EQU 






$C088 








000069 


PAGE 














000070 


REP 






60 








000071 


* 














000072 


* BFM.INIT2 ENTRY POINT 












000073 


* 














000074 


REP 






60 








000075 
















000076 


STATE DFB 






$FE 






; FF-IST ENTRY, 0-2ND ENTRY, 
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000077 














000078 


BFM.INIT2 


EQU 








000079 






INC 




STATE 




000080 






BMI 




BFMI050 




000081 






JSR 




GETK 




000082 






LDA 




RETRY 




000083 






BEQ 




BADNEWS 




000084 






BCC 




BFMI050 




000085 






JSR 




NMIDSBL 




000086 






JSR 




DC 




000087 






INC 




STATE 




000088 


BFMI050 


CLC 








000089 






RTS 








000090 


BADNEWS 


SEC 








000091 






RTS 








000092 






PAGE 








000093 






REP 




60 




000094 


* 












000095 


* 


DECODE SUBROUTINE 








000096 


* 












000097 


* 


TO ENCODE: 










000098 


* 


E0.E8: 




INIT 


KEY & PREV.K 




000099 


* 


B84E:4C 64 


B8 - 


JUMPS AROUND INTERP 


S 3 BYTE 


000100 


* 


1A02.1A03: 




NEW 


INTERP 'S LOAD ADR (LO, HI 


000101 


* 


B81DG: 




JSR 


FROM MONITOR 




000102 


* 












000103 






REP 




60 




000104 


DC 


EQU 








000105 






LDA 




B . REG 




000106 






PHA 








000107 






LDA 




SYSBANK 




000108 






STA 




B.REG 




000109 






CLC 








000110 






LDA 




CZPAGE+I .BASE 


P 


000111 






ADC 




#3 




000112 






STA 




I 




000113 






PHA 








000114 






LDA 




CZPAGE+I . BASE 


P+1 


000115 






ADC 




#0 




000116 






STA 




I+l 




000117 






PHA 








000118 






LDA 




#0 




000119 






STA 




SXPAGE+I+1 




000120 


* 












000121 






LDY 




I 




000122 






LDA 




#0 




000123 






STA 




I 




000124 






STA 




PREV.K 




000125 


* 












000126 






JSR 




DCLOOP 




000127 


* 












000128 






PLA 








000129 






STA 




I + l 




000130 






PLA 








000131 






STA 




I 




000132 


* 












000133 






LDY 




#1 




000134 






LDA 








000135 






STA 




CZPAGE+I. BASE 


P 


000136 






INY 








000137 






LDA 




(I)/Y 




000138 






STA 




CZPAGE+I. BASE 


P+1 


000139 


* 












000140 






LDY 




#2 




000141 






LDA 




#0 




000142 


DCA 


STA 




(I)/Y 




000143 






DEY 








000144 






BPL 




DCA 




000145 






PLA 








000146 






STA 




B.REG 




000147 






RTS 








000148 






PAGE 








000149 






REP 




60 




000150 


* 












000151 


* 


DECODE LOOP SUBROUTINE 






000152 


* 












000153 






REP 




60 




000154 


DCLOOP 


EQU 




* 




000155 






LDX 




#7 




000156 






CLC 








000157 






LDA 




KEY 





; I/O ERROR 



SAVE BANK REGISTER 



AND SWITCH TO SYSTEM BANK 



; FETCH LOADER'S INTERPRETER POINTER 



; ALIGN I PTR TO PAGE BOUNDARY 



RETRIEVE LOADER'S INTERPRETER POINTER 



; REPOSITION LOADER'S INTERPRETER POINTER (PUT ENCODE JMP HERE) 



WALK ON INTERPRETER'S FIRST INSTRUCTION (3 BYTES) 



; RESTORE BANK REGISTER (ENCODE JMP JUMPS TO HERE) 



SHIFT LEFT ONE BIT 
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000158 


BPL 


DCl 






000159 


SEC 








000160 


DCl ROL 


KEY,X 






000161 


DEX 








000162 


BPL 


DCl 






000163 










000164 


DC2 TYA 








000165 


AND 


#7 






000166 


EOR 


#2 






000167 


TAX 








000168 


LDA 


KEY, X 






000169 


PHA 








000170 


AND 


#7 






000171 


TAX 








000172 


PLA 








000173 


CLC 








000174 


ADC 


PREV.K 






000175 


CLC 








000176 


ADC 


KEY, X 






000177 


STA 


PREV. K 






000178 


EOR 


(I) / Y 




; DECODE BYTE 


000179 


STA 


(I) /Y 




; AND PUT IT BACK 


000180 


INY 








000181 


BNE 


DC2 






000182 


INC 


I+l 






000183 


LDA 


1+1 






000184 


CMP 


#<KERNEL . BASE 






000185 


BCC 


DCLOOP 






000186 


RTS 








000187 


PAGE 








000188 


REP 


60 






000189 










000190 


* GETKEY SUBROUTINE 








ouuiyi 










000192 


REP 


60 






000193 










000194 


RETRY DFB 


10 + 1 




;TEN RETRIES 


000195 


OURTRACK DS 


1 




;CURRENT TRACK/D3RRA81084 


000196 










000197 


GETK EQU 


* 






000198 


LDX 


#7 






000199 


STX 


XIDX 






000200 


LDX 


#SLOT 






000201 


LDA 


MOTORON, X 




/ENSURE MOTOR STAYS ON 


000202 


LDA 


E.REG 




; SELECT IMHZ, ROM 


000203 


ORA 


#$83 






000204 


STA 


E.REG 






000205 


* 








000206 


* NOTE: THE SEEKDSK3 


ROUTINE HAS THESE /D3RRA81C 


84 


000207 


* CAVEATS: IMHZ MODE 


, MOTOR IS ON, /D3RRA810 


84 




000208 


* DRIVE CURRENTLY SELECTED, ROM+I/0 ENABLED! 


/D3RRAB10B4 


000209 


* 








000210 


GETKOlO LDA 


IBEGTRK 






000211 


STA 


OURTRACK 




/WHERE WE SEEK TO /D3RRA81084 


000212 


JSR 


SEEKDSK3 




;HAVE DISKDH SEEK FOR US /D3RRA81084 


000213 


GETK020 LDX 


#SLOT 






000214 


JSR 


DOREAD 




;FIND A SECTOR HEADER 


000215 


BCS 


lOERROR 




;=>RETRY IF BAD 


000216 


LDA 


SECTOR 




/WHERE ARE WE? 


000217 


CMP 


#BEGSECT 




/AT THE RIGHT PLACE? 


000218 


BNE 


GETK020 




/=>N0, GET THERE 


000219 










000220 


GETKIOO LDX 


#1 






000221 


JSR 


WAIT 




/ (X * 1284) + 15 MILISECONDS 


000222 


LDX 


XIDX 






000223 


LDA 


VOLUME 






000224 


STA 


KEY,X 






000225 


DEC 


XIDX 






000226 


BMI 


ENUFF 






000227 


INC 


OURTRACK 




/BUMP FOR NEXT TRACK /D3RRA81084 


000228 


LDA 


OURTRACK 




/WHERE TO GO /D3RRA81084 


000229 


LDX 


#SLOT 






000230 


JSR 


SEEKDSK3 




/DISKDH, PLEASE SEEK ME /D3RRA81084 


000231 


LDX 


#SLOT 






000232 


JSR 


DOREAD 






000233 


BCC 


GETKIOO 






000234 


BCS 


lOERROR 






000235 


* 








000236 


ENUFF LDX 


#SLOT 






000237 


LDA 


MOTOROFF,X 






000238 


LDA 


E.REG 




/ SELECT 2MHZ, RAM 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 



WAIT 
Wl 



AND 

STA 

PAGE 

LDA 

CMP 

BNE 

LDA 

EOR 

BEQ 

SEC 

RTS 

LDA 
CLC 
RTS 



JSR 
BCS 
JMP 
JMP 



LDA 

CMP 
CLC 
BEQ 
SEC 
RTS 



DEC 
BEQ 
JMP 
JMP 



LDY 
DEY 
BNE 
DEX 
BNE 
RTS 

EQU 
IFNE 
FAIL 
FIN 



#$7C 
E.REG 

SECTOR 

#ENDSECT 

NOTPROT 

KEY 

KEY+1 

NOTPROT 



#0 



WHICHROM 
OLDREAD 
RDADR 
RDADRX 



RDADR 

IROMID 



RETRY 
ERRl 
GETK 
ENUFF 



#0 
Wl 
Wl 



/TRACKS SYNCED? 



;IF FIRST 2 VOLS ARE EQUAL 



TRY, TRY AGAIN 

I/O ERROR, CLEANUP AND EXIT 



$400 

ZZLEN-LENBFMI 
2, "SOSORG 



FILE IS INCORRECT FOR BFM.INIT2" 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: BFM. INIT2 . SRC 

************************************************************************* 



End of File 



Lines: 292 Characters: 7017 
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FILE: "SOS. BUFMGR. SRC. TEXT" 



000001 

000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



******** 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: BUFMGR. SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
"SOS 1.1 BUFFER MANAGER" 
SOSORG, 6,1,254 



SBTL 
REL 

INCLUDE 
*ORGBUFMG EQU $F552 
*LENBUFMG EQU $31C 

ORG 

ZZORG EQU 

MSB 
REP 



ORGBUFMG 



OFF 
60 

* COPYRIGHT (C) APPLE COMPUTER INC. 1980 

* ALL RIGHTS RESERVED 
REP 60 

* 

* BUFFER MANAGER (VERSION =1.10 ) 

* (DATE = 8/04/81) 
* 

* THIS MODULE IS RESPONSIBLE FOR CREATING AND RELEASING BUFFERS 

* FOR BOTH THE BLOCK FILE MANAGER AND, LATER, DEVICE HANDLERS 

* THE BUFFER MANAGER CREATES BUFFERS BY REQUESTING MEMORY 

* SEGMENTS FROM THE MEMORY MANAGER, AND RELEASES THEM VIA SAME. 

* THE PRIMARY DATA STRUCTURE IN THIS MODULE IS THE BUFFER TABLE. 



REP 

* 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

* 

EXTRN 
EXTRN 
EXTRN 
EXTRN 

EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 

* 

EXTRN 
EXTRN 
EXTRN 

* 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

PAGE 

REP 

* 

* DATA DECLARATIONS 
* 

REP 

* 

Z.REG EQU 



60 

REQBUF 

REQFXBUF 

GETBUFADR 

CHKBUF 

RELBUF 

MMGR 
SXPAGE 
CZPAGE 
CXPAGE 

SYSERR 
SERR 

OUTOFMEM 

BUFTBLFULL 

BADSYSBUF 

SYSDEATH 

BADBUFNUM 

BADBUFSIZ 

BUF . CNT 
PGCT.T 
XBYTE . T 
BUFREF 

60 



60 

$FFDO 



* MEMORY MGMT CALL PARM LOCATIONS ON SOS ZPAGE 



M.TPARMX 

REQCODE 
* 

FINDSEG 
SRCHMODE 
F.ID 
F.PGCT 
F.PGCTX 
F . BASE 
F . BASEX 
F.LIM 



EQU 
EQU 

EQU 

EQU 

EQU 

EQU 

DS 

EQU 

DS 

EQU 



$60 

M.TPARMX+$0 
$1 

M.TPARMX+$1 
M.TPARMX+$2 
M.TPARMX+$3 
2 

M.TPARMX+$5 

2 

M.TPARMX+$7 



FIRST ADR OF MEM SYS CALL FARMS ON SOS ZPAGE 



; TEMP LOC FOR F.PGCT PARM 
; TEMP LOC FOR F.BASE PARM 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



F.LIMX 

F.NUM 

F.NUMX 

RELSEG 
RLS.NUM 



DS 

EQU 

DS 

EQU 
EQU 



M.TPARMX+$9 
1 



$5 

M.TPARMX+$1 



; TEMP LOG FOR F.LIM PARM 
; TEMP LOG FOR F.NUM PARM 



REQBUF DATA DEGLARATIONS 



RQB . PGCT 
RQB.BNUM 



DS 
DS 



REQFXBUF DATA DEGLARATIONS 



RQFB.PGGT 
RQFB . BNUM 
MAXPGCT 
F.TPARMX 
OPEN. LIST 



DS 

DS 
EQU 
EQU 
EQU 



1 

1 

64 
$A0 

F.TPARMX+$5 



REQUESTED PAGE COUNT 

BUFFER NUMBER (FM GETFREE GALL) 



REQUESTED PAGE GOUNT 

BUFFER NUMBER (FM GETFREE GALL) 
MAX BUFSIZE=16K 

FIRST ADR OF FILE SYS GALL PARMS ON SOS ZPAGE 
LOG OF OPEN. LIST PARM (OPEN SYS GALL) 



* BUFGOMPAGT DATA DEGLARATIONS (SOURGE ALSO USED BY GHKBUF) 



BUFG.BNUM 

SOURGE 

DEST 



BUFFER TABLE 



DS 
EQU 

EQU 

PAGE 

REP 



M.TPARMX+$10 
M.TPARMX+$12 

60 



; BUF# OF LOWEST BUFFER IN BUF.TBL 
; S $11 
; & $13 



* THE BUFFER TABLE GONSISTS OF "GNT"-1 ENTRIES (1 TO "GNT"-1) . 

* EAGH ENTRY IS "SIZ" BYTES IN LENGTH. THE "PGGT" FIELD 

* GONTAINS 3 SUBFIELDS. BIT 7 IS THE "FREE" FLAG (0=AGTIVE, 1=FREE) 

* BIT 6 IS THE "FIXED" FLAG (0=FLOATING BUFFER, 1=FIXED BUFFER) 

* BITS 5 THRU CONTAIN THE PAGE COUNT OF AN "ACTIVE" ENTRY 

* (0=>1 PAGE,63=>64 PAGES DECIMAL). THE "XBYTE" FIELD CONTAINS 

* THE PROPER XBYTE OF AN "ACTIVE" ENTRY. THE "ADRH" FIELD 

* GONTAINS THE HIGH BYTE OF THE BUFFER ADDRESS. IF THE 

* BUFFER ENTRY IS "FLOATING", THEN THE "SEG" FIELD CONTAINS THE 

* SEGMENT NUMBER AND THE LOW BYTE OF THE BUFFER ADDRESS IS 

* ASSUMMED TO BE ZERO. 
* 

* THUS, THE FOLLOWING RESTRICTIONS APPLY TO BUFFERS: 



(1) 
(2) 



(3) 
(4) 



(5) 



MAXIMUM BUFFER LENGTH IS 64 PAGES (16K) 

"FLOATING" BUFFERS ALWAYS BEGIN ON A PAGE BOUNDARY 

"FIXED" BUFFERS DO NOT. 

BUFFERS ARE ALWAYS AN INTEGRAL NUMBER OF PAGES IN LENGTH 
BUFFERS ALWAYS RESIDE IN THE 32K BANK MEMORY REGION, 
A LIMITATION OF FIND. SEG (MEMORY MANAGER) 
MAXIMUM NUMBER OF BUFFERS = 16; ENTRY IS NOT USED. 



* 


REP 


60 


* BUFFER TABLE 
* 






BUF.SIZ 


EQU 


5 


BUF.GNT 


EQU 


17 


BUF.TBL 


DS 


BUF.SIZ*BUF.CNT 


PGGT . T 


EQU 


BUF.TBL 


XBYTE . T 


EQU 


PGCT.T+BUF.CNT 


ADRH . T 


EQU 


XBYTE . T+BUF . CNT 


SEG.T 


EQU 


ADRH.T+BUF.CNT 


ADRL . T 


EQU 


SEG.T 


CHK.T 


EQU 


ADRL. T+BUF. CNT 


ISFIXED 


EQU 


$40 


ISFREE 


EQU 


$80 



* BUFFER REFERENCE TABLE 
* 

* FIRST BYTE IS COUNT, FOLLOWED BY "COUNT" BUFFER #S. 

* THIS TABLE IS A LIST OF ALL BUFFERS REFERENCED DURING ONE 

* SOS SYSTEM CALL. BUFFER #S ARE ADDED TO THIS LIST BY 

* GETBUFADR AND REMOVED BY CHKSUM. 



BUFREF.GNT 

BUFREF 

ZPAGEX 



EQU 

DS 

DS 

PAGE 
REP 



17 

BUFREF.GNT 
1 

60 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 



* REQBUF 
* 

* INPUT: PAGE.CNT (A) 

* OUTPUT: BUFNUM (A) 

* ERROR: "BUFFER TABLE FULL" - SYSERR 

* "OUT OF MEMORY" - SYSERR 

* "BAD BUFFER SIZE" - SYSDEATH 

* THIS ROUTINE FINDS A FREE ENTRY IN THE BUFFER TABLE 

* AND THEN CALLS FIND.SEG (MMGR) TO OBTAIN MEMORY FOR IT. 

* IF MEMORY IS FOUND THEN THE BUFFER ENTRY IS MARKED "ACTIVE" 

* AND THE BUFFER INFO IS INSERTED INTO THE ENTRY 



REQBUF 



REP 



EQU 



60 



* IF REQUESTED PGCT OUT OF BOUNDS THEN FATAL ERR 



TAY 
BEQ 
CPY 
BCS 
STY 



RQB.ERR2 
#MAXPGCT+1 
RQB.ERR2 
RQB . PGCT 



* FIND FREE ENTRY IN BUF.TBL 



JSR 
BCS 
STX 



GETFREE 
RQB. ERR 
RQB.BNUM 



; FATAL ERR, INVALID BUFFER SIZE 



FATAL ERR, INVALID BUFFER SIZE 
SAVE PAGE COUNT 



ERR, BUFFER TABLE FULL 



* FIND PGCT*256 BYTES OF FREE MEMORY 



IDA 
JSR 
BCS 



RQB . PGCT 
FSEG 
RQB.ERRl 



; ERR, OUT OF MEMORY 
INSERT PGCT, XBYTE, ADRH, SEG#, CHK BYTE IN BUF. TBL (BUF#) 



RQBOlO 



RQB. ERR 
RQB.ERRl 

RQB.ERR2 



LDX 
DEC 
LDA 

STA 

LDX 
LDY 
JSR 
CPX 
BNE 
LDX 
TXA 
LDX 
STA 
TYA 
STA 

LDA 
STA 

LDA 

STA 

TXA 
CLC 
RTS 



LDA 
JSR 

LDA 
JSR 

LDA 
JSR 
PAGE 
REP 



RQB.BNUM 
RQB . PGCT 
RQB . PGCT 
PGCT.T,X 

F . BASEX 

F.BASEX+1 

CNVRT.ADR 

#$8F 

RQBOlO 

#$7F 

RQB.BNUM 
XBYTE. T,X 

ADRH.T,X 

F.NUMX 
SEG.T,X 

#0 

CHK.T,X 



PAGE COUNT FIELD 



; XBYTE S ADRH FIELDS 



IF XBYTE=$8F THEN XBYTE :=$7F 



; SEG# FIELD 



INIT CHECK BYTE TO NULL 



RETURN BUF# 
NORMAL EXIT 



#BUFTBLFULL 
SYSERR 



tOUTOFMEM 
SYSERR 



#BADBUFSIZ 
SYSDEATH 



60 



* REQFXBUF 

* INPUT: PAGE.CNT (A) 
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000239 




OUTPUT: BUFNUM (A) 














000240 




ERROR: "BUFFER TABLE 


FULL" 




SYSERR 




000241 


* 


"BAD SYSTEM. 


BUF 


PARM ADDRESS 




SYSERR 




000242 


* 


"BAD BUFFER 


SIZE 






SYSDEATH 


000243 


* 
















000244 


* 


THIS ROUTINE COMPUTES 


THE ACTUAL BUFFER ADDRESS 


IN THE OPEN 


000245 


* 


CALL (FARM "OPEN. LIST' 


), 


AND ALLOCATES A 


BUFFER 


ENTRY FOR IT. 


000246 




NOTE: THE SYSBUF PARAMETER MUST BE 


AN EXTENDED 


INDIRECT PTR! ! 


000247 


* 
















000248 




REP 






60 








000249 


* 
















000250 


REQFXBUF EQU 






* 








000251 


















000252 




IF REQUESTED PGCT OUT 


OF 


BOUNDS THEN 


FATAL ERR 




000253 


















000254 




TAY 














000255 




BEQ 






RQFB.ERR2 






FATAL ERR, BAD BUFFER SIZE 


000256 




CPY 






#MAXPGCT+1 








000257 




BCS 






RQFB.ERR2 






FATAL ERR, BAD BUFFER SIZE 


000258 


















000259 




STY 






RQFB.PGCT 






SAVE PAGE COUNT 


000260 


















000261 




GET A FREE BUFFER ENTRY 










000262 


















0002 63 




JSR 






GETFREE 








0002 64 




BCS 






RQFB . ERR 






ERR, BUFFER TABLE FULL 


000265 




STX 






RQFB . BNUM 






SAVE BUF# 


000266 


















000267 




FETCH SYSTEM. BUF PARAMETER IN OPEN SYSTEM CALL 




000268 


















000269 




LDY 






#3 








000270 




LDA 






(OPEN . LIST) 


, Y 






000271 




BNE 






RQFB . ERRl 






ERR, SYSBUF ADR 


000272 




DEY 














000273 




LDA 






(OPEN . LIST) 


, Y 






000274 




TAY 














000275 




LDA 






CXPAGE+1 , Y 








000276 




BPL 






RQFB . ERRl 






ERR, SYSBUF ADR 


000277 




CMP 






#$8F 








000278 




BCS 






RQFB . ERRl 






ERR, SYSBUF ADR 


000279 


* 
















000280 


* 


INSERT XBYTE, ADRH, 


ADRL 


, PGCT, CHK 


3YTE 


INTO BUF.TBL(BUF#) 


A A A O O T 

OOOzbl 


* 
















000282 




LDX 






RQFB . BNUM 








000283 




STA 






XBYTE. T,X 








000284 


* 
















000285 




LDA 






CZPAGE+1, Y 








000286 




BEQ 






RQFB.ERRl 






ERR SYSBUF ADR 


A A A O O 

000287 




CMP 






#$81 






CHECK FOR ADDRESS COMPENSATION 


000288 




BCC 






RQFBOlO 








000289 




INC 






XBYTE. T,X 








000290 




AND 






#$7F 








000291 


RQFBOlO STA 






ADRH.T,X 








000292 


* 
















000293 




LDA 






CZPAGE, Y 








000294 




STA 






ADRL.T,X 








000295 


* 
















000296 




DEC 






RQFB.PGCT 








000297 




LDA 






RQFB.PGCT 








000298 




ORA 






#ISFIXED 








A A A O A A 

0002 99 




STA 






PGCT.T,X 






BUFFER ENTRY NOW "ACTIVE" 


000300 


* 
















000301 




LDA 






#0 






INIT CHECK BYTE TO NULL 


000302 




STA 






CHK.T,X 








000303 


* 
















000304 




TXA 












RETURN BUF# 


A A A O A IT 




CLC 














000306 




RTS 












NORMAL EXIT 


000307 


* 
















000308 


RQFB.ERR LDA 






#BUFTBLFULL 








000309 




JSR 






SYSERR 








000310 


* 
















000311 


RQFB.ERRl LDA 






#BADSYSBUF 








000312 




JSR 






SYSERR 








000313 


* 
















000314 


RQFB.ERR2 LDA 






#BADBUFSIZ 








000315 




JSR 






SYSDEATH 








000316 




PAGE 














000317 




REP 






60 








000318 


* 
















000319 


* 


GETBUFADR 
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000320 
















000321 




INPUT : BUFNUM (A) 












000322 


* 


ZPAGELOC (X) 












000323 


* 


OUTPUT: BUF ADR AT: 


X,X+1 & SXPAGE+1, 


X 








000324 


* 


PAGE . CNT (A) 












000325 


* 


BUFNUM (Y) 












000326 


* 














000327 




ERROR; "BADBUFNUM" 


SYSDEATH 










000328 


* 














000329 




REP 


60 










000330 


* 














000331 


GETBUFADR EQU 












000332 
















000333 




IF BUF# OUT OF RANGE 


OR BUF . TBL (BUF# ) 




FREE 






000334 




THEN FATAL ERR 












000335 


* 














000336 




TAY 












000337 




BEQ 


GTBF.ERR 








BUF#-0, FATAL ERR 


000338 




CPY 


#BUF.CNT 










000339 




BCS 


GTBF.ERR 








BUF# > MAX BUF TABLE ENTRY, FATAL ERR 


000340 




LDA 


PGCT.T, Y 










000341 




BMI 


GTBF.ERR 








BUF ENTRY MARKED "FREE", FATAL ERR 


000342 


* 














000343 


* 


OTHERWISE, CONSTRUCT 


BUFFER PTR ON SOS 


ZPAGE 




000344 


* 














000345 




JSR 


GETBUFADRl 










000346 
















000347 




IF BUFFER NOT PREVIOUSLY REFERENCED ON 


THIS 


SOS 


CALL AND CHECK BYTE <> 


000348 


* 


THEN COMPARE FIRST BYTE OF BUFFER 


• CHECK 


BYTE IN BUFFER TABLE . 


000349 


* 


IF NO MATCH 


THEN KILL SYSTEM. 










000350 


* 














000351 




STX 


ZPAGEX 










000352 




TYA 












000353 




LDX 


BUFREF 










000354 




BEQ 


GTBF020 






'■ 


BUFREF EMPTY 


000355 


* 














000356 


GTBFOlO CMP 


BUFREF, X 








SEARCH FOR PREVIOUS REFERENCE 


000357 




BEQ 


GTBF030 








MATCH FOUND 


000358 




DEX 












000359 




BNE 


GTBFOlO 










000360 


* 














000361 


GTBF020 INC 


BUFREF 








LOG BUF # IN BUFREF TABLE 


000362 




LDX 


BUFREF 










000363 




CPX 


IBUFREF.CNT 










000364 




BCS 


GTBF . ERR 








BUFREF TABLE OVFLOW, KILL SYSTEM 


000365 




STA 


BUFREF, X 










000366 


* 














000367 




LDA 


CHK.T, Y 










000368 




BEQ 


GTBF030 








NO CHECK BYTE, SKIP CHECK 


000369 




LDX 


ZPAGEX 










000370 




LDA 


($0,X) 








COMPARE FIRST BYTE OF BUFFER 


000371 




CMP 


CHK.T, Y 








WITH CHECK BYTE IN BUF TABLE 


000372 




BNE 


GTBF.ERR 








NO MATCH, PULL THE PLUG 


000373 
















000374 


* 


RETURN PAGE. CNT TO CALLER 










000375 


* 














000376 


GTBF030 LDA 


PGCT.T, Y 










000377 




AND 


#$3F 








STRIP OFF FREE, FIXED FLAGS 


000378 




CLC 












000379 




ADC 


#1 










000380 


* 














000381 




CLC 












000382 




RTS 












000383 


* 














000384 


* 














000385 


GTBF.ERR LDA 


#BADBUFNUM 














JSR 


SYSDEATH 










000387 


* 














000388 


* 














000389 




REP 


60 










000390 


* 














000391 




GETBUFADRl 












000392 
















000393 


* 


INPUT: PGCT.T(BUF#) 


(A) 










000394 


* 


ZPAGELOC 


(X) 










000395 


* 


BUF# 


(Y) 










000396 


* 


ERROR: NONE. 












000397 


* 














000398 


* 


EXTRACTS THE BUFFER 


POINTER FROM THE 


BUFFER 


TABLE AND 


000399 




PLACES IT ON ZERO PAGE AT X, X+1 S SXPAGE+1, 


X 




000400 


* 
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000401 






REP 


60 




000402 


* 










000403 


GETBUFADRl 


EQU 


* 




0UU404 






AND 


#$40 




000405 






BNE 


GTBlOlO 




000406 






LDA 


#0 


; "FIXED" BUFFER 


000407 






BEQ 


GTB1020 


; ALWAYS TAKEN 


000408 


GTBlOlO 




LDA 


ADRL . T, Y 


; "FLOATING" BUFFER 


000409 


GTB1020 




STA 


0, X 




000410 






LDA 


ADRH . T, Y 




000411 






STA 


1, X 




000412 






LDA 


XBYTE.T, Y 




A A A yi T 

00041J 






ORA 


#$80 


; ENSURE $7F->$8F 


000414 






STA 


SXPAGE+1,X 




000415 






RTS 






A A A yi 1 

000416 






PAGE 






000417 






REP 


60 




000418 


* 










000419 


* CHKBUF 










000420 


* 










000421 


* CHECK BUFFER. 


FETCHES THE FIRST BYTE OF EACH 


BUFFER 


AAA A AO 

000422 


* REFERENCED DURING THE 


CURRENT SYSTEM CALL AND 


PLACES IT 


000423 


* IN CHK.T(BUF#) 








000424 












A A A yi O C 

00U4zo 


* INPUT : 


BUFREF TABLE 






000426 




BUFFER TABLE 






000427 


* OUTPUT : 


EMPTY 


BUFREF 


TABLE 




000428 




BUFFER TABLE' 


S CHECK BYTES UPDATED 




000429 




Z REG 


=$18 






000430 


* ERROR : 


NONE. 








AAA A O T 

000431 












000432 






REP 


60 




000433 


* 










000434 


CHKBUF 




EQU 






000435 






LDY 


BUFREF 


; PICK UP COUNT 


000436 






BEQ 


CHKB.EXIT 


; EXIT IF BUFREF EMPTY 


000437 


* 










000438 






LDA 


#$18 


; ENSURE SOS ZPAGE SWITCHED IN 


A A A yi O A 

000439 






STA 


Z.REG 




000440 


* 










000441 


* UPDATE 


THE CHECK BYTE 


OF EACH BUF# IN THE BUFREF TABLE 


000442 


* 










000443 


CHKBOlO 




LDX 


#>SOURCE 




000444 






LDA 


BUFREF, Y 




000445 






TAY 






000446 






LDA 


PGCT.T,Y 




000447 






JSR 


GETBUFADRl 


; PUT BUF#S ADR ON ZPAGE 


000448 






LDA 


($0,X) 




000449 






STA 


CHK.T, Y 




000450 






DEC 


BUFREF 




A A A yi C T 

000451 






LDY 


BUFREF 




000452 






BNE 


CHKBOlO 


; IF COUNTOO THEN PROCESS NEXT 


000453 












000454 


CHKB.EXIT 




RTS 




; BUFREF TABLE IS EMPTY (COUNT= 


000455 






PAGE 






000456 






REP 


60 




000457 


* 










000458 


* RELBUF 










000459 


* 










AAA A ^ A 

000460 


* INPUT; 


BUFNUM (A) 






A A A yi T 

0004 61 


* OUTPUT: 


NONE. 








0004 62 


* ERROR: 


"BADBUFNUM" SYSDEATH 




0004 63 


* 










0004 64 


* THIS ROUTINE RELEASES 


THE BUFFER ENTRY, CALLS 


FIND.SEG TO 


0004 65 


* RELEASE 


THE CORRESPONDING MEMORY SEGMENT, AND 


CALLS 


A A A yi ^ 

000466 


* BUFCOMPACT TO 


PERFORM 


BUFFER COMPACTION. 




AAA A ^ ^ 

000467 


* 










A A A yi ^ n 

000468 






REP 


60 




A A A yi ^ A 

000469 


* 










000470 


RELBUF 




EQU 






000471 


* 










000472 


* IF BUF# 


OUT OF RANGE 


OR BUF.TBL (BUF#) =FREE 




000473 


* THEN FATAL ERR 






000474 


* 










000475 






TAY 






000476 






BEQ 


RLBF.ERR 




000477 






CPY 


#BUF.CNT 




000478 






BCS 


RLBF.ERR 




000479 






LDA 


PGCT.T, Y 




000480 






BMI 


RLBF.ERR 




000481 


* 
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MARK BUF.TBL(BUF#)= 


FREE 


000483 










000484 




ORA 




#ISFREE 


000485 




STA 




PGCT . T, Y 


000486 










000487 




IF BUF.TBL (BUF#) =FIXED 


THEN EXIT 


000488 










000489 




AND 




#ISFIXED 


0004 90 




BNE 




RLBF . EXIT 


0004 91 










000492 




OTHERWISE CALL MEMORY 


ylGR TO RELEASE BUFFER ' S MEMORY SEG 


A A A yi AO 

000493 










000494 




LDA 




ffRELSEG 


000495 




STA 




REQCODE 


000496 










0004 97 




LDA 




SEG . T, Y 


0004 98 




STA 




RLS . NUM 


0004 99 


* 








000500 




JSR 




MMGR 


000501 




BCS 




RLBF. ERR ; ANY ERR IS FATAL 


A A A C A O 

OOOSOz 


* 








A A A C A O 

000503 


* 


AND COMPACT BUFFERS 






000504 


* 








A A A C A IT 

000505 




JSR 




BUFCOMPACT 


A A A C A 

000506 


* 








000507 


RLBF.EXIT CLC 






000508 




RTS 






A n A c n rs 










000510 


RLBF . ERR LDA 




#BADBUFNUM 


000511 




JSR 




SYSDEATH 


A A A C T A 

000512 




PAGE 






000513 




REP 




60 


A A A C T A 

000514 


* 








000515 


* 


BUFCOMPACT 






000516 










000517 




THIS ROUTINE IS RESPONSIBLE FOR PACKING ALL SOS BUFFERS UP 


000518 




AGAINST THE HIGHEST 


AVAILABLE FREE MEMORY. COULD IMPROVE THE 


000519 




EFFICIENCY OF THIS 


COMPACTION CYCLE BY NOT RELEASING THE "RELEASED" BUFFER 


000520 


* 


UNTIL IT IS KNOWN THAT 


ANOTHER BUFFER WILL NOT BE MOVED INTO ITS LOC. 


A A A C A T 

000521 


* 








A A A C A A 

000522 




REP 




60 


000523 


* 








000524 


BUFCOMPACT EQU 






000525 


* 








000526 




FIND THE FLOATING BUFFER IN BUF.TBL WITH THE LOWEST ADDRESS. 


000527 










000528 


BUFCOlO LDY 




#0 


000529 




LDX 




#BUF.CNT-1 


A A A C O A 

000530 


* 








A A A C O T 

000531 


BUFC020 LDA 




PGCT.T,X 


A A A C O A 

000532 




AND 




#$C0 ; STRIP OUT PAGE COUNT BITS 


A A A IT O O 

000533 




BNE 




BUFC030 


A A A C A A 

000534 


* 








000535 




LDA 




ADRH.T,X 


000536 




CMP 




ADRH.T,Y 


000537 




LDA 




XBYTE.T,X 


000538 




SBC 




XBYTE.T, Y 


A A A C O A 

000539 




BCS 




BUFC030 


000540 


* 








A A A C /IT 

000541 




TXA 




; SMALLER BUFFER FOUND, SAVE IN 


000542 




TAY 






000543 


* 








000544 


BUFC030 DEX 






000545 




BNE 




BUFC020 


000546 


* 








000547 


* 


IF NO BUFFER FOUND 


THEN DONE 


000548 


* 








000549 




TYA 






A A A C C A 

000550 




BNE 




BUFC040 


000551 




JMP 




BUFC.EXIT 


000552 


BUFC040 STY 




BUFC.BNUM ; OTHERWISE SAVE BUF# IN Y REG. 


000553 


* 








000554 


* 


CALL FIND.SEG: FINDS 


HIGHEST AVAILABLE FREE MEMORY 


000555 


* 








000556 




LDA 




PGCT.T, Y 


000557 




AND 




#$3F ; STRIP OUT "FREE", "FIXED" FLAGS 


000558 




CLC 






000559 




ADC 




#1 


000560 




JSR 




FSEG 


000561 




BCS 




BUFC.EXIT ; DONE IF NO FREE SEG FOUND 


000562 


* 
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000563 




CONVERT BASE 


.BKPG TO BUFFER ADR 


000564 












000565 








LDX 


F.BASEX 


000566 








LDY 


F.BASEX+1 


000567 








JSR 


CNVRT.ADR 


000568 








STX 


F.BASEX 


000569 








STY 


F.BASEX+1 


000570 












000571 




IF 


NEW SEG ' S 


BASE < CURRENT BUFFER'S BASE ADR 


000572 












000573 








LDY 


BUFC . BNUM 


000574 








LDA 


ADRH.T, Y 


000575 








STA 


SOURCE+1 


000576 








CMP 


F.BASEX+1 


000577 








LDA 


XBYTE . T, Y 


000578 








STA 


SXPAGE+SOURCE+1 


000579 








SBC 


F . BASEX 


000580 








BCS 


BUFC . EXITl 


000581 












000582 




MOVE DATA FROM CURRENT 


BUFFER TO NEW BUFFER 


000583 












000584 








LDX 


F . BASEX 


000585 








STX 


SXPAGE+DEST+1 


000586 








LDY 


F . BASEX+1 


000587 








STY 


DEST+1 


000588 








LDA 


#0 


000589 








STA 


SOURCE 


000590 








STA 


DEST 


000591 


* 










000592 








TAY 




000593 








LDX 


F . PGCTX 


000594 


BUFC200 


LDA 


(SOURCE) , Y 


000595 








STA 


(DEST) , Y 


000596 








DEY 




000597 








BNE 


BUFC200 


000598 








INC 


SOURCE+1 


000599 








INC 


DEST+1 


000600 








DEX 




000601 








BNE 


BUFC200 


000602 


* 










000603 


* 


UPDATE BUF.TBL(BUF#) 




000604 


* 










000605 








LDY 


BUFC . BNUM 


000606 








LDA 


F . BASEX 


000607 








STA 


XBYTE . T, Y 


000608 








LDA 


F . BASEX+1 


000609 








STA 


ADRH . T , Y 


OOOdIO 


* 










000611 








LDX 


SEG . T, Y 


000612 








LDA 


F.NUMX 


000613 








STA 


SEG. T, Y 


000614 












000615 




AND RELEASE 


OLD MEMORY 


SEGMENT 


000616 












000617 








STX 


RLS . NUM 


000618 








LDA 


#RELSEG 


000619 








STA 


REQCODE 


A A A ^ O A 








JSR 


MMGR 


000621 








BCS 


BUFC . ERR 


000622 


* 










000623 








JMP 


BUFCOlO 


000624 












000625 












000626 


BUFC 


EXITl 


LDX 


F . NUMX 


000627 








STX 


RLS. NUM 


000628 








LDA 


#RELSEG 


000629 








STA 


REQCODE 


000630 








JSR 


MMGR 


000631 








BCS 


BUFC. ERR 


000632 


* 










000633 


BUFC 


EXIT 


LDA 


#0 


000634 








STA 


SERR 


000635 








CLC 




000636 








RTS 




000637 


* 










000638 


* 










000639 


BUFC 


ERR 


LDA 


#BADBUFNUM 


000640 








JSR 


SYSDEATH 


000641 








PAGE 




000642 








REP 


60 


000643 


* 











; BASE BANK 
; BASE PAGE 



; XBYTE 
; ADRH 



MOVE LOOP 



REPEAT COMPACTION CYCLE 



DONE, 

RELEASE SEG BEFORE EXIT 



MASK OUT ANY ERROR FROM MEMORY MGR 
NORMAL EXIT 
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000644 


* FSEG 






000645 


* 






A A A /I /" 

000646 


* INPUT: PAGE.CNT (A) 






000647 


* OUTPUT: PAGE.CNT (A) 


UNCHANGED IF FIND. SEG SUCCESSFUL 


000648 


* ERROR: CARRY SET "UNABLE TO FIND MEMORY SEG OF 


PAGE.CNT*256 BYTES" 


A A A /I A 

000649 


* 






A A A C A 

000650 


* THIS ROUTINE BUILDS 


THE PARAMETERS FOR A FIND. SEG SYSTEM CALL 


A A A C T 

000651 


* AND THEN CALLS THE MEMORY MANAGER. 




A A A C 

000652 


* 






000653 


REP 


60 




000654 


* 






000655 


FSEG EQU 


* 




000656 


* 






A A A ^ C 

000657 


* SETUP INPUT PARAMETERS FOR FIND. SEG CALL 




000658 


* 






A A A r A 

000659 


STA 


F.PGCTX 




000660 


LDA 


tFINDSEG 




000661 


STA 


REQCODE 




000662 


LDA 


#2 




000663 


STA 


SRCHMODE 




A A A z' ^ 

000664 


LDA 


#4 




000665 


STA 


F.ID 




000666 


* 






A A A z' Z' T 

000667 


* SETUP OUTPUT PARAMETER ADRESSES 




A A A z^ z' O 
OOO66O 








000669 


LDA 


#>F . PGCTX 




000670 


STA 


F . PGCT 




000671 


LDA 


#<F . PGCTX 




000672 


STA 


F . PGCT+1 




000673 


LDA 


#>F.BASEX 




A A A Z" T A 

000674 


STA 


F.BASE 




000675 


LDA 


#<F.BASEX 




A A A z' T 

000676 


STA 


F.BASE+1 




A A A z^ "1 ^ 

000677 


LDA 


#>F.LIMX 




000678 


STA 


F.LIM 




000679 


LDA 


KF.LIMX 




000680 


STA 


F.LIM+1 




000681 


LDA 


#>F.NUMX 




000682 


STA 


F.NUM 




A A A Z^ 

000683 


LDA 


#<F.NUMX 




A A A Z" A 

000684 


STA 


F.NUM+1 




000685 


* 






A A A z^ 

000686 


LDA 


#0 




000687 


STA 


F.PGCTX+1 




000688 


STA 


SXPAGE+F. PGCT+1 




000689 


STA 


SXPAGE+F.BASE+1 




000690 


STA 


SXPAGE+F. LIM+1 




000691 


STA 


SXPAGE+F. NUM+1 




AAA Z" A 

000692 


* 






000693 


JSR 


MMGR 




A A A Z^ A 

000694 


LDA 


F.PGCTX 




A A A z^ A IT 

000695 


* 






000696 


RTS 




EXIT . CARRY SET->ERR 


000697 


PAGE 






000698 


REP 


60 




000699 


* 






000700 


* GETFREE 






000701 


* 






A A A T A 

000702 


* INPUT: NONE 






A A A A 

000703 


* OUTPUT: BUF# (X) 






000704 


* ERROR: "BUFTBLFULL" 


SYSERR 




000705 








000706 


* THIS ROUTINE SEARCHES THE BUFFER TABLE, LOOKING 


FOR A FREE 


000707 


* ENTRY. IF FOUND, IT 


RETURNS THE BUFFER NUMBER, 


ELSE ERROR. 


000708 


* 






A A A A A 

000709 


REP 


60 




000710 


* 






000711 


GETFREE EQU 


* 




000712 


LDX 


#BUF.CNT-1 




00071 J 


GFROlO LDA 


PGCT.T,X 




000714 


BMI 


GFR.EXIT 


FREE ENTRY FOUND 


000715 


DEX 






000716 


BNE 


GFROlO 




000717 


* 






000718 


LDA 


♦BUFTBLFULL 




000719 


JSR 


SYSERR 


ERR EXIT 


000720 


* 






000721 


GFR.EXIT CLC 






000722 


RTS 




NORMAL EXIT 


000723 


PAGE 






000724 


REP 


60 
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000725 
000726 
000727 
000728 
000729 
000730 
000731 
000732 
000733 
000734 
000735 
000736 
000737 
000738 
000739 
000740 
000741 
000742 
000743 
000744 
000745 
000746 
000747 
000748 
000749 
000750 
000751 
000752 
000753 
000754 
000755 
000756 
000757 
000758 
000759 
000760 
000761 
000762 
000763 
000764 
000765 
000766 
000767 
000768 
000769 
000770 
000771 
000772 
000773 
000774 
000775 
000776 
000777 
000778 
000779 
000780 
000781 
000782 
000783 
000784 
000785 
000786 
000787 
000788 
000789 



* CNVRT.ADR 
* 

* INPUT: BANK VALUE (X) 

* PAGE VALUE (Y) 

* OUTPUT: XBYTE (X) 

* ADRH (Y) 

* ERROR: NONE. 
* 

* THIS ROUTINE CONVERTS A BASE.BKPG PARM (MMGR) INTO A 

* VIRTUAL POINTER 

REP 60 

* 

CNVRT.ADR EQU * 

* IF PAGE <> $20 THEN GOTO L2 



CPY 
BNE 



#$20 
CNVA020 



* IF BANK <> THEN GOTO LI 



* XBYTE=$8F 

* ADRH:=PAGE 



TXA 
BNE 



LDX 
BMI 



CNVAOlO 



#$8F 

CNVA.EXIT 



* LI: XBYTE :=(BANK-1) ORA #$80 

* ADRH:=#$80 



CNVAOlO ORA 

TAX 

DEX 

LDY 

BMI 
* 

* L2: XBYTE :=BANK ORA #$80 

* ADRH:=ADRH-#$20 



#$80 



#$80 

CNVA.EXIT 



CNVA020 



CNVA.EXIT 



ZZEND 
ZZLEN 



TXA 
ORA 
TAX 
SEC 
TYA 
SBC 
TAY 

RTS 

LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



#$80 



#$20 



ON 



ZZEND-ZZORG 

ZZLEN-LENBUFMG 

2,"S0S0RG 



FILE IS INCORRECT FOR BUFMGR" 



****************** 



* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: BUFMGR. SRC 

************************************************************************* 



End of File 



Lines: 789 Characters: 18954 
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FILE: "SOS. C.BI2. TEXT" 



000001 



************************************************************************* 

000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: C.BI2 

000004 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

000005 

000006 :TABS 17,23,40 

000007 ::PR#1,L58 132N 

000008 SL4:DR1:ASM BFM. INIT2 .SRC,BFM. INIT2 .OBJ, 6, 1 
000009 

000010 ********************************************************** 

000011 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: C.BI2 

000012 ************************************************************************* 
End of File 



Lines : 12 Characters : 523 
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FILE: " SOS. C.S. TEXT" 



000001 

000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: C.S 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

:TABS 17,23,40 
::PR#1,L58 132N 

SL4 : DR2 : ASM BUFMGR . SRC , BUFMGR . OBJ, 6 , 1 
SL4 :DR2;ASM MEMMGR.A. SRC,MEMMGR.OBJ, 6, 1 
END 

*******+*************** + **:^**:^******************************************* 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: C.S 

************************************************************************* 



End of File — Lines: 14 Characters: 555 
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FILE: "SOS. C3. TEXT" 



000001 ************************************************************************* 

000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: C3 

000004 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

000005 

000006 :TABS 17,23,40 

000007 ::PR#1,L58 132N 

000008 SL4:DR1:ASM SOSLDR.SRC, SOSLDR.OBJ, 6, 1 

000009 SL4:DR2:ASM BUFMGR.SRC,BUFMGR.OBJ, 6, 1 

000010 SL4:DR2:ASM MEMMGR.A.SRC,MEMMGR.OBJ, 6, 1 

000011 END 
000012 

000013 ************************************************************************* 

000014 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: C3 

000015 ************************************************************************* 



End of File — Lines: 15 Characters: 590 
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FILE: "SOS. CFMGR. SRC. TEXT" 



000001 


************************************************************************* 




* 


APPLE /// SOS 1.3 SOURCE CODE FILE: CFMGR. SRC 




000003 








***************************** 


000004 


* 


ASSEMBLER: APPLE ] [ 65 


32 ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 












000006 




SBTL 


"SOS 1.1 CHARACTER FILE MANAGER" 


000007 




REL 








A A A A A n 

000008 




INCLUDE 


SOSORG, 6,1,254 






000009 




ORG 


ORGCFM 






000010 


ZZORG EQU 


* 






000011 




MSB 


OFF 






000012 




REP 


60 






000013 




COPYRIGHT (C) 


APPLE COMPUTER INC. 


1980 


000014 




ALL 


RIGHTS RESERVED 






000015 




REP 


60 






A A A A T 

000016 












000017 




CHARACTER FILE MANAGER 


{VERSION =1.10 ) 






000018 






(DATE = 8/04/81) 






A A A A T A 

ooooiy 












A A A A O A 

OOOOzO 




THIS MODULE TRANSFORMS 


CHARACTER FILE SYSTEM CALLS INTO 


000021 




DEVICE CALLS TO THE APPROPRIATE DEVICE HANDLER 


ONLY 


000022 




OPEN, NEWLINE, READ, WRITE AND CLOSE CALLS 


ARE 


PERMITTED 


000023 




ON CHARACTER FILES. 








000024 












A A A A O IT 

000025 




REP 


60 






A A A A O 

000026 












000027 




ENTRY 


CFMGR 






A A A A O n 

000028 












000029 




ENTRY 


CFCB.MAX 






000030 




ENTRY 


CFCB.DEV 






000031 


* 










000032 




EXTRN 


DMGR 






000033 




EXTRN 


LEVEL 






A A A A O A 

000034 




EXTRN 


MAX.DNUM 






A A A A O IT 

000035 




EXTRN 


SXPAGE 






000036 


* 










A A A A O T 

000037 




EXTRN 


SYSERR 






000038 




EXTRN 


SERR 






000039 




EXTRN 


BADSCNUM 






000040 




EXTRN 


CFCBFULL 






000041 




EXTRN 


BADREFNUM 






000042 




EXTRN 


FNFERR 






A A A A A O 

000043 




PAGE 








000044 




REP 


60 






000045 


* 










A A A A A /" 

000046 


* 


DATA DECLARATIONS 








000047 


* 










000048 




REP 


60 






000049 












000050 


* 


FILE CALL PARM LOCATIONS ON SOS ZPAGE 






000051 


* 










A A A A C O 

000052 


F. 


TPARMX EQU 


$A0 






A A A A C 

000053 


REQCODE EQU 


F. TPARMX 






000054 


0. 


PATH EQU 


F.TPARMX+1 




OPEN'S PATHNAME LOC 


A A A A C IT 

000055 


0. 


REFNUM EQU 


F . TPARMX+3 




OPEN'S REFNUM LOC 


A A A A r 

000056 


REFNUM EQU 


F.TPARMX+1 




REFNUM 'S LOC IN OTHER CALLS 


000057 


Nl 


.ISNL EQU 


F.TPARMX+2 




NEWLINE 'S ISNEWLINE LOC 


000058 


Nl 


.NLCHR EQU 


F. TPARMX+3 




NEWLINE 'S NEWLINECHAR LOC 


000059 


RW.BUF EQU 


F.TPARMX+2 




READ/WRITE 'S BUF LOC 


000060 


RW. BYTES EQU 


F.TPARMX+4 




READ/WRITE 'S BYTES LOC 


A A A A ^ 1 

000061 


RD.BYTESRD EQU 


F.TPARMX+6 




READ'S BYTESREAD LOC 


A A A A CO 

UUUUdz 


* 










000063 


* 


FILE REQUEST CODE VALUES 






000064 


* 










000065 


OPEN EQU 


8 






000066 


NEWLINE EQU 


9 






000067 


READ EQU 


$A 






000068 


WRITE EQU 


$B 






000069 


CLOSE EQU 


$C 






000070 




PAGE 








000071 


* 


DEVICE CALL PARM LOCATIONS ON SOS ZPAGE 






000072 


* 










000073 


D. 


TPARMX EQU 


$co 






000074 


D. 


SCNUM EQU 


D. TPARMX 




DEVICE SYS CALL # LOC 


000075 


GDN . DNAME EQU 


D.TPARMX+1 




GETDEVNUM DNAME LOC 


000076 


GDN.DNUM EQU 


D. TPARMX+3 




GETDEVNUM DNUM LOC 
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n n n n "7 ^ 

uuuu / / 


D . DNUM 


EQU 


D.TPARMX+1 


OPN/CLOSE/RD/WR/CTRL ' S DNUM 


UUUU to 


DRW.BUF 


EQU 


D.TPARMX+2 


RD/WR ' S BUF LOC 


r\ r\ rx r\ n Ci 

UUUU /y 


DRW. BYTES 


EQU 


D.TPARMX+4 


RD/WR'S BYTES LOC 


(-1 nn n Q n 
UUUUoU 


DRD.BYTESRD 


EQU 


D.TPARMX+8 


KU/WK b clihjbKCjAU LOC 


UUUUol 


DC . CCODE 


EQU 


D.TPARMX+2 


DCTRL ' S CTRLCODE LOC 


A A A A O O 

UUUUol 


DC.CLIST 


EQU 


D.TPARMX+3 


DCTRL ' S CTRLLIST LOC 


A n fi n Q "3 
UU UUo J 


* 








A n A A O A 


* DEVICE REQUEST CODE VALUES 




A A A A O IZ 

UUUUoo 










A A A A O 

UUUUoD 


DREAD 


EQU 


$0 




000087 


DWRITE 


EQU 


$1 




A A A A O O 

UUUUoo 


DCTRL 


EQU 


$3 




A A A A O A 

uuouoy 


GETDEVNUM 


EQU 


$4 




A A A A A A 

uuuuyu 


DO PEN 


EQU 


$5 




A A A A A T 

uoouyi 


DCLOSE 


EQU 


$7 




A A A A AO 

uuuuyz 










A A A A A O 

uuuuy J 


CTRL. LIST 


DS 


2 


CONTAINER FOR NEWLINE DCTRL 


A A A A A yl 

uuuuy4 


NEWLINECC 


EQU 


2 


NEWLINE CTRL CODE 


A A A A A C 

UU UU 30 


* 








A A A A A 

uuuuyb 


* GETDNUM VARS 








A A A A A T 

uoouyv 


* 








A A A A A O 

uuuuyo 


DNUM. TEMP 


DS 


1 




A A A A A A 

uoouyy 


* 








A A A 1 A A 
UUUIUU 


* CLOSEALL VARS 








A A A T A 1 

UUUlUi 


* 








A A A 1 AO 

UU U i Uz 


DCLOSE . ERR 


EQU 


F.TPARMX+$F 




A A A 1 AO 

UUUiU J 


DCLOSE. TBL 


EQU 


$200 




A A A 1 A yl 

UUU1U4 


TRUE 


EQU 


$80 




A A A T AC 

UUUlUo 


FALSE 


EQU 


$0 




A A A T A 

UUUlUb 


* 








A A A T A 

UUUlU / 


* 








A A A T An 

OOOlOo 




REP 


60 




A A A T A A 

uooloy 


* 








A A A 1 T A 
UUUllU 


* CHARACTER FILE CONTROL BLOCK TABLE 




000111 


* (ENTRY IS NOT USED) 






A A A 1 T O 

UUUllz 


* 








A A A 1 1 O 

UUUlio 




REP 


60 




A A A T T A 
UUU114 


CFCB.MAX 


EQU 


17 




000115 


CFCB.DEV 


DS 


CFCB.MAX 




A A A T T r 

UUUIId 


CFCB.LVL 


DS 


CFCB.MAX 




A A A T T 

UUUll / 




PAGE 






A A A 1 1 O 

UUUllo 




REP 


60 




A A A 1 T A 

UUUll y 


* 








A A A T OA 

UUUlzU 


* CHARACTER FILE MANAGER - 


MAIN ENTRY POINT 




A A A 1 O 1 

UU Ulz 1 










A A A T O O 

UUUlzz 




REP 


60 




A A A T O O 

UUUlz J 


CFMGR 


EQU 


* 




A A A T O ^ 

UUUlz4 


* 








A A A T O C 

UUUlzo 


* SWITCH, BASED 


ON REQUEST 


CODE 




A A A T O /" 
UUUlZD 


* 








A A A T AT 

0001^7 




LDA 


REQCODE 




A A A 1 O O 

OUUlzo 




CMP 


#OPEN 




A A A 1 OA 

uuuizy 




BEQ 


CFOPEN 


"OPEN" 


000130 




CMP 


#NEWLINE 




A A A 1 O 1 

UUU131 




BEQ 


CFNEWLINE 


"NEWLINE" 


A A A T O O 

UUUl 




CMP 


#READ 




A A A T O O 




BEQ 


CFREAD 


"READ" 


UUUl o4 




CMP 


#WRITE 




UUUl JD 




BNE 


CFMOlO 




A A A 1 O /" 

UUUl Jd 




JMP 


CFWRITE 


"WRITE" 


A A A 1 -5-7 

UU Ulo / 


CFMOlO 


CMP 


#CLOSE 




A A A 1 ^0 




BNE 


CFM020 




A A A 1 "DA 

uuuloy 




JMP 


CFCLOSE 


"CLOSE" 


A A A 1 ^ A 
UUU14U 


CFM020 


LDA 


tBADSCNUM 




A A A 1 ^1 
UUU14 i 




JSR 


SYSERR 


ERR EXIT 


A A A T /I A 
UUUl^Z 




PAGE 






A A A T 
UUU14 J 




REP 


60 




A A A T n A 

UUU144 


* OPEN (IN. PATHNAME; OUT.REFNUM; IN. OPENLIST, LENGTH) SYSTEM CALL 


A A A 1 /I C 
UUU140 




REP 


60 




A A A T C 
UU U i 4 D 


CFOPEN 


EQU 




BUILD "D.OPEN" CALL 


000147 




JSR 


GETDNUM 


MAP PATH TO DEV# 


000148 




BCS 


CFOP.ERRl 


ERR - FILE NOT FOUND 


000149 




STA 


D.DNUM 




000150 


* 








000151 




JSR 


REQ . CFCB 


BUILD NEW CFCB ENTRY 


000152 




BCS 


CFOP.ERRl 


ERR - CFCB FULL 


000153 




LDX 


#0 




000154 




STA 


(O.REFNUM,X) 


RETURN REFNUM TO CALLER 


000155 




CPY 


#1 




000156 




BNE 


CFOP.EXIT 


DEVICE ALREADY OPEN 


000157 


* 
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000158 


LDA 


#DOPEN 




000159 


STA 


D . SCNUM 




000160 


JSR 


DMGR 


; DOPEN CALL 


000161 


BCS 


CFOP. ERR 




000162 


CFOP.EXIT RTS 




; NORMAL EXIT 


000163 








000164 


CFOP . ERR LDA 


SERR 


/KLUDGE - 1.0 DRIVERS DON 


000165 


BEQ 


CFOP . EXIT 


;N0 ERROR 


000166 


LDX 


#0 


; RELEASE CFCB ENTRY 


000167 


LDA 


(0 . REFNUM, X) 




000168 


JSR 


REL . CFCB 




000169 


CFOP . ERRl RTS 




; ERR EXIT 


000170 


PAGE 






000171 


REP 


60 




000172 


* NEWLINE (IN.REFNUM, IS 


. NEWLINE, NEWLINE . 


CHAR) SYSTEM CALL 


00017 J 


REP 


60 




000174 


CFNEWLINE EQU 




; BUILD "D. CONTROL" CALL 


000175 


LDA 


#DCTRL 




000176 


STA 


D . SCNUM 




000177 


LDA 


REFNUM 




000178 


JSR 


GET . CFCB 


; MAP REFNUM TO DEV # 


000179 


BCS 


CFNL . ERR 


; ERR - BAD REFNUM 


000180 








000181 


STA 


D.DNUM 




000182 


LDA 


#NEWLINECC 




000183 


STA 


DC . CCODE 




000184 








000185 


LDA 


#>CTRL . LIST 




000186 


STA 


DC.CLIST 




000187 


LDA 


#<CTRL .LIST 




000188 


STA 


DC . CLIST+1 




000189 


LDA 


#0 




000190 


STA 


SXPAGE+DC .CLIST+1 




000191 








000192 


LDA 


NL . ISNL 




000193 


STA 


CTRL . LIST 




000194 


LDA 


NL . NLCHR 




000195 


STA 


CTRL.LIST+1 




000196 


* 






000197 


JSR 


DMGR 


; DCONTROL CALL 


000198 


RTS 




; NORMAL EXIT 


000199 


* 






A A A O A A 


CFNL.ERR RTS 




; ERR EXIT 


000201 


PAGE 






000202 


REP 


60 




000203 


* READ (IN.REFNUM,BUF, BYTES, BYTESREAD) SYSTEM CALL 


000204 


REP 


60 




000205 


CFREAD EQU 


* 


; BUILD "D.READ" CALL 


000206 


LDA 


#DREAD 




000207 


STA 


D . SCNUM 




000208 


LDA 


REFNUM 




000209 


JSR 


GET . CFCB 


; MAP REFNUM TO DEV # 


000210 


BCS 


CFRD . ERR 


; ERR - BAD REFNUM 


000211 








000212 


STA 


D.DNUM 




000213 


LDX 


#3 




000214 


CFRDOlO LDA 


RW.BUF,X 




000215 


STA 


DRW.BUF,X 




000216 


DEX 






000217 


BPL 


CFRDOlO 




000218 


* 






000219 


LDA 


RD.BYTESRD 




000220 


STA 


DRD.BYTESRD 




000221 


LDA 


RD.BYTESRD+1 




000222 


STA 


DRD.BYTESRD+1 




000223 


* 






000224 


LDA 


SXPAGE+RW.BUF+1 




000225 


STA 


SXPAGE+DRW. BUF+1 




000226 


LDA 


SXPAGE+RW . BYTES+1 




000227 


STA 


SXPAGE+DRW . BYTE S + 1 




000228 


LDA 


SXPAGE+RD.BYTESRD+1 




000229 


STA 


SXPAGE+DRD . BYTESRD+1 




000230 


* 






000231 


JSR 


DMGR 


; DREAD CALL 


000232 


RTS 




; NORMAL EXIT 


000233 


* 






000234 


CFRD . ERR RTS 




; ERR EXIT 


000235 


PAGE 






000236 


REP 


60 




000237 


* WRITE(IN.REFNUM,BUF, BYTES) SYSTEM CALL 




000238 


REP 


60 
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000239 


CFWRITE 


EQU 


* 


BUILD "D. WRITE" CALL 


000240 




LDA 


#DWRITE 




000241 




STA 


D . SCNUM 




000242 




LDA 


REFNUM 




000243 




JSR 


GET . CFCB ; 


MAP REFNUM TO DEV # 


000244 




BCS 


CFWR . ERR ; 


ERR - BAD REFNUM 


000245 




STA 


D . DNUM 




000246 




LDX 


#3 




000247 


CFWROlO 


LDA 


RW. BUF, X 




000248 




STA 


DRW.BUF, X 




000249 




DEX 






000250 




BPL 


CFWROlO 




000251 




LDA 


SXPAGE+RW . BUF+1 




000252 




STA 


SXPAGE+DRW. BUF+1 




000253 




LDA 


SXPAGE+RW . BYTES+1 




000254 




STA 


SXPAGE+DRW. BYTES+1 




000255 










000256 




JSR 


DMGR ; 


DWRITE CALL 


000257 




RTS 




NORMAL EXIT 


000258 










000259 


CFWR.ERR 


RTS 




ERR EXIT 


000260 




PAGE 






000261 




REP 


60 




000262 


* CLOSE ( IN . 


REFNUM) SYSTEM 


CALL 




0002 63 




REP 


60 




0002 64 


CFCLOSE 


EQU 




BUILD "D. CLOSE" CALL 


000265 




LDA 


#DCLOSE 




000266 




STA 


D . SCNUM 




000267 




LDA 


REFNUM 




000268 




BEQ 


CLOSEALL 




000269 










000270 




JSR 


REL . CFCB ; 


RELEASE CFCB ENTRY 


000271 




BCS 


CFCLOlO 




000272 




STA 


D.DNUM 




000273 




TYA 






000274 




BNE 


CFCLOlO 




000275 




JSR 


DMGR 


DOLOSE CALL 


000276 


CFCLOlO 


RTS 




NORMAL EXIT 


000277 










000278 




PAGE 






000279 




REP 


60 




000280 










000281 


* CLOSE ALL 


CHARACTER FILES W/LEVELS >= TO CURRENT SYSTEM FILE LEVEL. 


000282 










000283 




REP 


60 




000284 










000285 


CLOSEALL 


EQU 


* 




000286 




LDA 


#FALSE 


SET ENTRIES IN DEV CLOSE TBL TO FALSE 


000287 




LDX 


MAX. DNUM 




000288 


CFCL020 


STA 


DCLOSE.TBL,X 




000289 




DEX 






000290 




BPL 


CFCL020 




000291 










000292 




LDX 


#CFCB.MAX-1 


CLOSE ALL DEVICES >- TO CURRENT LEVEL 


000293 


CFCL030 


LDA 


CFCB.DEV,X 


AND MARK TRUE IN DEV CLOSE TBL 


000294 




TAY 






000295 




BMI 


CFCL050 




000296 




LDA 


CFCB.LVL,X 




000297 




CMP 


LEVEL 




000298 




BCC 


CFCL050 




000299 




LDA 


#TRUE 




000300 




STA 


DOLOSE. TBL,Y 




000301 




SEC 






000302 




ROR 


CFCB . DEV, X 




000303 


CFCL050 


DEX 






000304 




BNE 


CFCL030 




000305 










000306 




LDX 


#CFCB.MAX-1 


DON'T CLOSE DEVICES < CURRENT LEVEL 


000307 


CFCL060 


LDA 


CFCB . DEV, X 




000308 




TAY 






000309 




BMI 


CFCL070 




000310 




LDA 


# FALSE 




000311 




STA 


DOLOSE. TBL,Y 




000312 


CFCL070 


DEX 






000313 




BNE 


CFCL060 




000314 


* 








000315 




LDA 


#0 




000316 




STA 


DOLOSE . ERR 




000317 




LDX 


MAX . DNUM 


ISSUE D' CLOSE CALLS TO ALL DEVICES MARKED 


000318 


CFCL080 


LDA 


DCLOSE.TBL,X 


IN DEV CLOSE TABLE 


000319 




BPL 


CFCL090 
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000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 
000392 
000393 
000394 
000395 
000396 
000397 
000398 
000399 
000400 



CFCL090 



TXA 
PHA 
STX 
JSR 
PLA 
TAX 
LDA 
BEQ 
STA 
DEX 
BNE 

LDA 
BNE 
RTS 

JSR 

PAGE 
REP 



D.DNUM 
DMGR 



SERR 

CFCL090 

DCLOSE.ERR 



DCLOSE.ERR 
CFCL.ERR 



SYSERR 
60 



IF ERROR, 
THEN SAVE IT 



IF $0 THEN NO ERRORS FROM D. CLOSE CALLS 



NORMAL EXIT 

RETURN LAST D. CLOSE ERROR REPORTED 



* GET DEVICE NUMBER 
* 

* INPUT: CPATH 

* OUTPUT: DEVICE NUMBER (A) 

* ERROR: CARRY SET ("FILE NOT FOUND") 
* 

* GETDNUM FIRST CALLS THE DMGR (GETDEVNUM) MAP THE PATHNAME 

* TO A DEVICE #. GETDNUM THEN ENSURES THAT THE PATHNAME 

* IS NOT A BLOCK DEVICE BY CHECKING THE DBLKLST TABLE. 



60 



ETDNUM EQU 
LDA 

STA 

LDA 
STA 
LDA 
STA 

LDA 
STA 
LDA 
STA 

LDA 
STA 
LDA 
STA 

JSR 

BCS 
BMI 
LDA 
RTS 

ETD.ERR LDA 
JSR 
PAGE 
REP 

REQUEST FCB ENTRY 

INPUT: DNUM (A) 
OUTPUT: REFNUM (A) , 
ERROR: CARRY SET ( 



#GETDEVNUM 
D . SCNUM 

. PATH 
GDN . DNAME 
O.PATH+1 
GDN.DNAME+1 

#>DNUM.TEMP 
GDN. DNUM 
#<DNUM.TEMP 
GDN . DNUM+1 

SXPAGE+O.PATH+1 
SXPAGE+GDN . DNAME+1 
#0 

SXPAGE+GDN . DNUM+1 

DMGR 
GETD.ERR 
GETD.ERR 
DNUM. TEMP 



#FNFERR 
SYSERR 



D.NAME NOT FOUND 
BLOCK DEVICE FOUND 



60 



OPENCT (Y) 
'CFCB FULL") 



REQ.CFCB FIRST SEARCHES THE CFCB TABLE USING THE DEV# 

AS A KEY. IF FOUND THE OPENCT IS INCREMENTED, OTHERWISE, 

REQ.CFCB FINDS A FREE ENTRY AND STORES THE DEV# AND LEVEL #. 



REQ . CFCB 



REQOlO 



REP 

EQU 
LDX 
TAY 
LDA 
BMI 
DEX 
BNE 
LDA 
JSR 



60 



#CFCB.MAX-1 

CFCB.DEV,X 
REQ02a 

REQOlO 

tCFCBFULL 

SYSERR 
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REQ020 


TYA 






000402 




STA 


CFCB . DEV, X 




00040i 




LDA 


LEVEL 




000404 




STA 


CFCB.LVL,X 




000405 




TXA 






AAA fl A 

000406 




PHA 






000407 




TYA 






000408 




JSR 


OPENCOUNT 




000409 




PLA 






A n n /I T A 
UUU41U 




ORA 


#$80 




000411 




CLC 






000412 




RTS 




; NORMAL EXIT 


A A A yi T 

00041J 




PAGE 






000414 




REP 


60 




000415 


* 








A A A /I 1 r 


* RELEASE 


FOB ENTRY 






000417 


* 








000418 


* INPUT: 


REFNUM (A) 






000419 


* OUTPUT: 


DNUM (A) , 


OPENCT (Y) 




000420 


* ERROR: 


CARRY SET 


("INVALID REFNUM") 




000421 


* 








AAA fl AO 

000422 


* USES REFNUM AS AN CFCB TABLE INDEX TO 


RELEASE A CFCB ENTRY. 


A A A yi A 

00042 J 


* 








000424 




REP 


60 




000425 


REL . CFCB 


EQU 


* 




000426 




AND 


#$7F 




000427 




CMP 


#CFCB.MAX 




000428 




BCS 


REL.ERR 




000429 




TAX 






000430 




LDA 


CFCB. DEV, X 




AAA A O T 

0004J1 




BMI 


REL.ERR 




AAA A OA 

0004J2 




SEC 




; MARK ENTRY 


000433 




ROR 


CFCB. DEV, X 




000434 




JSR 


OPENCOUNT 




000435 




CLC 






000436 




RTS 




; NORMAL EXIT 


000437 










000438 


REL.ERR 


LDA 


#BADREFNUM 




000439 




JSR 


SYSERR 




000440 




REP 


60 




000441 


* 








000442 


* OPENCOUNT SUBROUTINE 




000443 


* 








000444 


* INPUT: 


DEVNUM (A) 






000445 


* OUTPUT: 


DEVNUM (A) 


, OPENCTR (Y) 




000446 


* 








000447 


* OPENCTR 


=COUNT OF ALL CFCB ENTRIES W/CFCB. DEV=DEVNUM 


000448 


* 








000449 




REP 


60 




000450 


OPENCOUNT 


EQU 


* 




000451 




LDY 


#0 




000452 




LDX 


#CFCB.MAX-1 




000453 


OPNCTOlO 


CMP 


CFCB. DEV, X 




000454 




BNE 


OPNCT020 




A n A /I IZ IZ 




I NY 






000456 


OPNCT020 


DEX 






000457 




BNE 


OPNCTOlO 




000458 




RTS 






000459 




PAGE 






AAA A ^ A 

000460 




REP 


60 




A A A yi T 

0004 61 


* 








0004 62 


* GET FOB 


ENTRY 






0004 63 










A A A yl A 

0UU4 64 


* INPUT: 


REFNUM (A) 






0004 65 


* OUTPUT: 


DNUM (A) 






A A A yi 

000466 


* ERROR: 


CARRY SET 


("INVALID REFNUM") 




AAA A ^ ^ 

000467 


* 








A A A yi ^ n 

000468 


* USES REFNUM AS AN INDEX TO RETURN THE 


CORRESPONDING DEVICE 


A A A yi ^ A 

000469 


* IF THE ENTRY INDICATED BY REFNUM IS A 


FREE ENTRY, THEN AN 


000470 


* ERROR, 


'INVALID REF 


NUM" IS RETURNED. 




000471 


* 








000472 




REP 


60 




000473 


GET . CFCB 


EQU 






000474 




AND 


#$7F 




000475 




CMP 


#CFCB.MAX 




000476 




BCS 


GET. ERR 




000477 




TAX 






000478 




LDA 


CFCB. DEV, X 




000479 




BMI 


GET. ERR 




000480 




CLC 






000481 




RTS 




; NORMAL EXIT 
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000482 
000483 
000484 
000485 
000486 
000487 
000488 
000489 
000490 
000491 



GET. ERR 



* 



ZZEND 
ZZLEN 



LSI 
EQU 

EQU 
IFNE 
FAIL 
FIN 



LDA 
JSR 



ON 



ZZEND-ZZORG 
ZZLEN-LENCFM 
2, "SOSORG 



* 



#BADREFNUM 
SYSERR 



FILE IS INCORRECT FOR CFMGR' 



ERR EXIT 



000492 

000493 ************************************************************************* 

000494 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: CFMGR. SRC 

000495 ************************************************************************* 
000496 

End of File — Lines: 495 Characters: 12860 
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FILE: "SOS. CLOSE. EOF. TEXT" 



A A A T 


*********************************************************** 


A A A A n 


* a PPT TT III 
rtJrJrijili III 


Qnc; 1 "3 Qi^TTPr'T? 
OUO -L . O OUUKL.-C1 


CODE FILE: 


CLOSE. EOF 




000003 


-k-k-k-k-k-k-k-k-k-k-k-k 


-k-k-k-k-kk-k-k-k-k-kk-k-k 






000004 




a PPT F 1 r Rfl 9 


ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 












000006 












A A A A A 

000007 


* 










A A A A A n 

000008 


* 










000009 


CLOSE 




C.REFNUM 




CLOSE ALL? 


A A A A T A 

000010 






CLOSEl 




NO, JUST ONE OF 'EM 


A A A A T T 

000011 






CFERR 




CLEAR GLOBAL CLOSE ERROR 


000012 






GFCBADR 




SET UP POINTER TO FCB 


000013 


rr ATT 




#0 




BEGIN AT THE BEGINNING. 


000014 




STA 


FCBPTR 




SAVE CURRENT LOW BYTE OF POINTER 


000015 






#FCBLEVL 




FETCH THE LEVEL AT WHICH 


A A A A T 

000016 






(FCBPTR) , Y 




FILE WAS OPENED 


000017 






LEVEL 




TEST AGAINST CURRENT GLOBAL LEVEL 


000018 






NXTCLOS 




DONT CLOSE IF FILES LEVEL IS < GLOBAL LEVEL 


A A A A T A 

ooooiy 






#FCBREFN 




INDEX TO REFERENCE NUMBER 


A A A A O A 

OOOOzO 






( FCBPTR) , Y 




IS THIS REFERENCE FILE OPEN? 


000021 






NXTCLOS 




NO, TRY NEXT. 


000022 




JSR 


FLUSH2 




CLEAN IT OUT. . . 


000023 




BCS 


CLOSERR 




RETURN FLUSH ERRORS 


000024 






CL0SE2 




UPDATE FCB S VCB 


A A A A O IT 

000025 




LDY 


C.REFNUM 






A A A A O 

000026 






NXTCLOS 




NO ERR IF CLOSE ALL 


000027 




Rrq 


CLOSERR 






A A A A O n 

000028 






FCBPTR 




BUMP POINTER TO NEXT FILE CONTROL BLOCK. 


000029 












000030 




ADC 


#$20 






000031 






CLSALLl 




BRANCH IF WITHIN SAME PAGE. 


000032 






FCBPTR+1 






000033 






FCBPTR+1 




BUMP TO NEXT PAGE . 


A A A A O A 

000034 






FCBADDRH 




HAVE WE CHECKED BOTH PAGES? 


A A A A O IT 

000035 






CLOSALL 




YES, RETURN NO ERROR. 


000036 




CLC 








000037 






CFERR 




ON FINAL CLOSE OF CLOSE ALL REPORT LOGGED ERRORS 


000038 




BEQ 


C3 




BRANCH IF NO ERRORS 


000039 




SEC 








A A A A /I A 
OU U04 U 


C3 


RTS 








000041 


* 










000042 


* 










A A A A A O 

000043 


CFERR 




1 




GLOBAL ERROR FLAG FOR FLUSH AND CLOSE ALL 


000044 


* 










000045 


* 










A A A A A 

000046 






FLUSHl 




FLUSH FILE FIRST (INCLUDING UPDATING BIT MAP) 


000047 






CLOSERR 






000048 




LDY 


#FCBBUFN 






000049 






(FCBPTR) , Y 






000050 




JSR 


RELBUF 






000051 






CLOSERR 






A A A A C O 

000052 






#0 






000053 




LDY 


#FCBREFN 






000054 






(FCBPTR) , Y 






000055 




INY 






BUMP TO ' FCBDEVN ' 


A A A A r 

000056 






(FCBPTR) , Y 






000057 




OTA 


DEVNUM 




GO LOOK FOR ASSOCIATED VCB. 


000058 






DEWCB 






000059 






VCBPTR 




GET VCBPTR 


000060 




DEC 


VCB+VCBOPNC 




INDICATE ONE LESS FILE OPEN. 


A A A A ^ T 

000061 




BNE 


CLOSEND 




BRANCH IF THAT WASN'T THE LAST... 


UUUU6Z 




LDA 


VCB+VCBSTAT 


»x 




000063 




AND 


#$7F 




STRIP 'FILES OPEN' BIT 


000064 




STA 


VCB+VCBSTAT 


»x 




000065 


CLOSEND 


CLC 








000066 




RTS 








000067 


CLOSERR 


JMP 


GLBERR 




DON'T REPORT CLOSALL ERR NOW 


000068 


* 










000069 




PAGE 








000070 


* 










000071 


FLUSH 


LDA 


C.REFNUM 




FLUSH ALL? 


000072 




BNE 


FLUSHl 




NO, JUST ONE OF 'EM 


000073 




STA 


CFERR 




CLEAR GLOBAL FLUSH ERROR 


000074 




JSR 


GFCBADR 




SET UP POINTER TO FCB 


000075 


FLSHALL 


LDA 


#0 




BEGIN AT THE BEGINNING. 


000076 


FLSHALl 


STA 


FCBPTR 




SAVE CURRENT LOW BYTE OF POINTER 
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000077 




LDY 


IFCBREFN 


INDEX TO REFERENCE NUMBER 


000078 




LDA 


(FCBPTR) , Y 


IS THIS REFERENCE FILE OPEN? 


000079 




BEQ 


NXFLUSH 


NO, TRY NEXT. 


000080 




JSR 


FLUSH2 


CLEAN IT OUT . . . 


000081 




ECS 


FLSHERR 


RETURN ANY ERRORS 


000082 










000083 




BCS 


CLOSERR 




000084 


NXFLUSH 


LDA 


FCBPTR 


BUMP POINTER TO NEXT FILE CONTROL BLOCK. 


000085 




CLC 






000086 




ADC 


#$20 




000087 




BCC 


FLSHALl 


BRANCH IF WITHIN SAME PAGE. 


000088 




LDA 


FCBPTR+1 




000089 




INC 


FCBPTR+1 


BUMP TO NEXT PAGE . 


000090 




CMP 


FCBADDRH 


HAVE WE CHECKED BOTH PAGES? 


000091 




BEQ 


FLSHALL 


YES, RETURN NO ERROR. 


000092 


FLUSHEND 


CLC 






000093 




LDA 


CFERR 


ON LAST FLUSH OF A FLUSH (0) 


000094 




BEQ 


F3 


BRANCH IF NO LOGGED ERRORS 


000095 




SEC 




REPORT ERROR NOW 


000096 


F3 


RTS 






000097 


FLSHERR 


JMP 


GLBERR 


FLUSH ALL OR ONE? 


000098 










000099 


FLUSH2 


JSR 


FNDFCBUF 


MUST SET UP ASSOCIATED VCB AN BUFFER LOCATIONS FIR^ 


000100 




BCC 


FLUSH2A 


BRANCH IF NO ERROR ENCOUNTERED. 


OUOIUI 




JMP 


GLBERR 


CHECK FOR CLOSE OR FLUSH ALL 


000102 










000103 


FLUSHl 


LDA 


#0 


CLEAR 


000104 




STA 


CFERR 


GLOBAL ERROR FOR NORMAL REFNUM FLUSH 


000105 




JSR 


FINDFCB 


SET UP POINTER TO FOB USER REFERENCES 


000106 




BCS 


FLSHERR 


RETURN ANY ERRORS 


000107 


FLUSH2A 


LDY 


#FCBATTR 


TEST TO SEE IF FILE IS 


000108 




LDA 


(FCBPTR) , Y 


MODIFIED. FIRST TEST WRITE ENABLED. 


000109 




AND 


#WRITEN 




000110 




BEQ 


FLUSHEND 


BRANCH I F ' READ ONLY ' 


000111 




LDY 


#FCB DIRTY 


SEE IF EOF HAS BEEN MODIFIED 


000112 




LDA 


(FCBPTR) , Y 




000113 




BMI 


FLUSH2B 


BRANCH IF IT HAS 


000114 




LDY 


#FCBSTAT 


NOW TEST FOR DATA MODIFIED. 


000115 




LDA 


(FCBPTR) , Y 


(IN OTHER WORDS: WAS FILE ACTUALLY 


000116 




AND 


#USEMOD+EOFMOD+DATMOD 


; WRITTEN TO WHILE IT'S BEEN OPEN?) 


000117 




BEQ 


FLUSHEND 


BRANCH IF FILE NOT MODIFIED. 


000118 


FLUSH2B 


JSR 


TWRPROTl 


DISK SWITCH CHECKING 


000119 




LDA 


DSWGLOB 




000120 




BEQ 


FLUSH2C 


BRANCH IF NO SWITCH 


000121 




LDA 


#XDISKSW 




000122 




SEC 






000123 




RTS 




FORCES A VERIFIED RETRY 


000124 


FLUSH2C 


LDY 


#FCBSTAT 


NOW TEST FOR DATA MODIFIED. 


000125 




LDA 


(FCBPTR) , Y 




000126 




AND 


#DATMOD 


DOES CURRENT DATA BUFFER NEED TO BE 


000127 




BEQ 


FLUSH3 


WRITTEN? BRANCH IF NOT. 


000128 




JSR 


WFCBDAT 


IF SO, GO WRITE IT STUPID! 


000129 




BCS 


FLSHERR 




000130 


FLUSH3 


LDY 


#FCBSTAT 


CHECK TO SEE IF THE INDEX BLOCK (TREE FILES ONLY) 


000131 




LDA 


(FCBPTR) , Y 


NEEDS TO BE WRITTEN. 


000132 




AND 


#IDXMOD 




000133 




BEQ 


FLUSH4 


BRANCH IF NOT. . . 


000134 




JSR 


WFCBIDX 




000135 




BCS 


FLSHERR 


RETURN ANY ERRORS . 


000136 




PAGE 






000137 










000138 


FLUSH4 


LDY 


#FCBENTN 


NOW PREPARE TO UPDATE DIRECTORY 


000139 


OWNRMOV 


LDA 


(FCBPTR) , Y 


NOTE: THIS CODE DEPENDS ON THE 


000140 




STA 


D . DEV-FCBDEVN, Y 


DEFINED ORDER OF THE FILE CONTROL 


000141 




DEY 




BLOCK AND THE TEMPORARY DIRECTORY AREA IN 'WORKSPC 


000142 




CPY 


#FCBDEVN-1 




000143 




BNE 


OWNRMOV 




000144 




LDA 


D . HEAD 


READ IN THE DIRECTORY HEADER FOR THIS FILE 


000145 




STA 


BLOKNML 




A A A 1 A 

000146 




LDA 


D . HEAD+1 




000147 




STA 


BLOKNMH 




000148 




LDA 


D. DEV 




000149 




STA 


DEVNUM 




000150 




JSR 


RDGBUF 


READ IT INTO THE GENERAL PURPOSE BUFFER 


000151 




BCS 


FLSHERR 


BRANCH IF ERROR. 


000152 




JSR 


MOVHEDO 


MOVE HEADER INFO. 


000153 




LDA 


D . ENTBLK 


GET ADDRESS OF DIRECTORY BLOCK THAT 


000154 




LDY 


D . ENTBLK+1 


CONTAINS THE FILE ENTRY. 


000155 




CMP 


D . HEAD 


TEST TO SEE IF IT'S THE SAME BLOCK THAT 


000156 




BNE 


FLSHEBLK 


THE HEADER IS IN. BRANCH IF NOT. 


000157 




CPY 


D. HEAD+1 





» Apple /// Computer » SOS 1.3 Source Code Listing » 37 of 255 




000158 




BEQ 


FLUSH5 


BRANCH IF HEADER BLOCK = ENTRY BLOCK. 


000159 


FLSHEBLK 


STA 


BLOKNML 




000160 




STY 


BLOKNMH 




000161 




JSR 


RDGBUF 


GET BLOCK WITH FILE ENTRY IN GENERAL BUFFER 


000162 


FLUSH5 


JSR 


ENTCALC 


SET UP POINTER TO ENTRY 


000163 




JSR 


MOVENTRY 


MOVE ENTRY TO TEMP ENTRY BUFFER IN 'WORKS PC 


000164 




LDY 


#FCBUSE 


UPDATE ' BLOCKS USED ' COUNT . 


000165 




LDA 


(FCBPTR) , Y 




000166 




STA 


DFIL+D. USAGE 




000167 




I NY 






000168 




LDA 


(FCBPTR) , Y 




000169 




STA 


DFIL+D .USAGE+1 


HI BYTE TOO. . . 


000170 




LDY 


#FCBEOF 


AND MOVE IN END OF FILE MARK WHETHER 


000171 


EOFUPDTE 


LDA 


(FCBPTR) , Y 


WE NEED TO OR NOT . 


000172 




STA 


DFIL+D . EOF-FCBEOF, Y 




00017 J 




INY 




MOVE ALL THREE BYTES . 


000174 




CPY 


#FCBE0F+3 




000175 




BNE 


EOFUPDTE 




000176 




LDY 


fFCBFRST 


ALSO MOVE IN THE ADDRESS OF 


000177 




LDA 


(FCBPTR) , Y 


THE FILE'S FIRST BLOCK SINCE 


000178 




INY 




IT MIGHT HAVE CHANGED SINCE THE FILE 


000179 




STA 


DFIL+D . FRST 


FIRST OPENED. 


000180 




LDA 


(FCBPTR) , Y 




000181 




STA 


DFIL+D . FRST+1 




000182 




PAGE 






000183 




LDY 


#FCBSTYP 


AND THE LAST THING TO UPDATE IS 


000184 




LDA 


(FCBPTR) , Y 


THE STORAGE TYPE . 


000185 




ASL 


A 


(SHIFT IT INTO THE HI NIBBLE) 


000186 




ASL 


A 




000187 




ASL 


A 




A A A T on 

000188 




ASL 


A 




000189 




STA 


SCRTCH 




000190 




LDA 


DFIL+D . STOR 


GET OLD TYPE BYTE (IT MIGHT BE THE SAME) 


A A A 1 AT 

ouuiyi 




AND 


#$F 


STRIP OFF OLD TYPE 


000192 




ORA 


SCRTCH 


ADD IN THE NEW TYPE, 


000193 




STA 


DFIL+D . STOR 


AND PUT IT AWAY. 


000194 




JSR 


DREVISE 


GO UPDATE DIRECTORY ! 


000195 




BCS 


FLUSHERR 




000196 




LDY 


#FCBDIRTY 


MARK 


000197 




LDA 


(FCBPTR) , Y 


FOB/DIRECTORY 


000198 




AND 


#$FF-FCBM0D 


AS 


000199 




STA 


(FCBPTR) , Y 


UNDIRTY 


A A A O A A 

000200 




LDX 


#0 


NOW CHECK TO SEE IF A BIT MAP 


000201 




LDA 


D . DEV 


IS LYING AROUND THAT SHOULD BE WRITTEN. 


000202 




CMP 


BMADEV 


IS IT IN MAP BUFFER A? 


000203 




BEQ 


BMAPUP 


YES, PUT IT ON THE DISK IF NECESSARY. 


000204 




LDX 


#BMTABSZ 


SET INDEX TO BIT MAP TABLE 'B' 


000205 




CMP 


BMBDEV 


NO, WHAT ABOUT BIT MAP BUFFER B? 


000206 




BNE 


FLSHENDl 


NOPE , ALL DONE . 


000207 


BMAPUP 


LDA 


BMASTAT, X 


TEST TO SEE IF IT'S BEEN MODIFIED. 


000208 




BPL 


FLSHENDl 


NOPE, ALL DONE AS I SAID. 


000209 




STX 


BMTAB 




000210 




JSR 


WRTBMAP 


GO PUT IT AWAY. 


000211 




BCS 


FLUSHERR 




000212 




LDX 


BMTAB 


MARK MAP AS UPDATED 


000213 




LDA 


#0 




000214 




STA 


BMASTAT, X 




000215 


FLSHENDl 


CLC 






000216 




RTS 






000217 


FLUSHERR 


EQU 




DROP INTO GLBERR 


000218 










000219 


GLBERR 


EQU 




REPORT ERROR IMMEDIATELY 


000220 


* ONLY IF NOT 


A CLOSE 


ALL OR FLUSH ALL 




000221 




LDX 


C . REFNUM 




000222 




BNE 


GLBERRl 


NOT AN 'ALL' SO REPORT NOW 


000223 




CLC 






000224 




STA 


CFERR 


SAVE FOR LATER 


000225 


GLBERRl 


RTS 






000226 










000227 










000228 


GFCBADR 


LDA 


FCBANKNM 


GET BANK THAT FOB IS IN 


000229 




STA 


SISFCBP 




000230 




LDA 


FCBADDRH 


AND HIGH BYTE ADDRESS OF FILE CONTORL BLOCK 


nnn9 ^i 










000232 




RTS 




SILLY THAT IT'S SO SHORT... 


000233 


* 








000234 


SETERR 


LDA 


#ACCSERR 




000235 




SEC 






000236 


EOFRETN 


RTS 






000237 




PAGE 






000238 


* 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 



SETEOFO 
SETEOFl 
SETE0F2 



PURTESTl 
TRELEASl 



LDY 
LDA 
CMP 
BCS 
LDY 
LDA 
AND 
BEQ 
JSR 
BCS 
LDY 
LDX 
LDA 
STA 
DEY 
DEX 
BPL 
JSR 
BCS 
LDX 
LDA 
STA 
DEX 
BPL 
LDY 
LDX 
LDA 
CMP 
BCC 
BNE 
DEY 
DEX 
BPL 
JSR 
BCS 
LDX 
LDY 
LDA 
STA 
DEY 
DEX 
BPL 
JSR 

LDX 
LDA 
CMP 
BCC 
BNE 
DEX 
BPL 
JMP 
JMP 

LDY 
LDA 
CMP 
BEQ 
CMP 
BEQ 



IFCBSTYP 

(FCBPTR) , Y 

#TRETYP+1 

SETERR 

#FCBATTR 

(FCBPTR) , Y 

#WRITEN 

SETERR 

TSTWPROT 

SETERR 

#FCBE0F+2 

#2 

(FCBPTR) , Y 
OLDEOF,X 



SETSAVE 
ADJMARK 
EOFRETN 
#2 

TPOSLL,X 
C.NEWEOF,X 

NEOFPOS 

#FCBMARK+2 
#2 

(FCBPTR) , Y 
C.NEWEOF,X 
SETEOFl 
SETEOFO 



NEOFTST 

RDPOSN 
EOFRETN 

#2 

#FCBE0F+2 
C.NEWEOF,X 
(FCBPTR) , Y 



SETE0F2 

FCBUSED 

#2 

0LDE0F,X 
C.NEWEOF,X 
PURTESTl 
PURGE 

PURTEST 
FLSHENDl 
TRE LEASE 

IFCBSTYP 

(FCBPTR) , Y 

#SEEDTYP 

EOFOUT 

#TRETYP 

TRELEASl 



ONLY KNOW HOW TO MOVE EOF OF TREE TYPE 



BRANCH IF OTHER THAN TREE 

NOW CHECK TO INSURE WRITE IS ENABLED. 

CAN WE SET NEW EOF? 
NOPE, ACCESS ERROR. 

FIND OUT IF MOD IS POSIBLE (HARDWARE WRITE PROTECT) 



SAVE OLD EOF 

SO IT CAN BE SEEN 

WHETHER BLOCKS NEED 

TO BE RELEASED 

UPON 

CONTRACTION 

ALL THREE BYTES OF THE EOF 

GET ADJUSTED END OF FILE ACCORDING TO 

RETURN ANY ERROR IMMEDIATELY 



C.BASE' INTO TPOS. 



; POSITION MARK TO NEW EOF 



FIND OUT IF EOF < MARK. 



COMPARE UNTIL NOT EQUAL OR CARRY CLEAR 
BRANCH IF EOF>MARK 
BRANCH IF EOF<MARK 



LOOP ON ALL THREE BYTES 
READ IN NEW POSITION. 
RETURN ANY ERRORS. 



MOVE NEW EOF TO FCB. 



MOVE ALL THREE BYTES. 

MARK FCB AS DIRTY (FOR FLUSH) 

POINT TO THIRD BYTE 

SEE IF EOF MOVED BACKWARDS 

SO BLOCKS CAN 

BE RELEASED (BRANCH IF NOT) 
BRANCH IF BLOCKS TO BE RELEASED 

ALL THREE BYTES 
NEW EOF NOT SMALLER 
OVERFLOW PREVENTER 

FIND OUT WHAT TYPE OF TREE 
TO PERFORM THE PROPER 
STYLE OF BLOCK RELEASE 
SEED DON'T DEALLOCATE 
FULL TREE? 
BRANCH IF YES 



IF WE GET HERE, WE ARE RELEASING 

BLOCKS AT THE END OF A SAPLING FILE: CALCULATE CORRECT POSITION 
WITHIN THE INDEX BLOCK AND ALLOW SUBROUTINE 
PURGE LATTER BLOCKS TO DEALLOCATE 
ALL THE DATA BLOCKS THAT FOLLOW 



JSR 
LDX 

LDY 
LDA 
BNE 
CPY 
BNE 
CPX 
BEQ 
DEX 



FNDBMAP 
TPOSHI 

TPOSLH 
TPOSLL 
PURl 
#0 

PUR2 
#0 

PURl 



REFRESH THE RIGHT MAP FOR THIS VOLUME 
PRELOAD 

THE THREE EOF 
BYTES 

BRANCH IF NO BOUNDARY ADJUSTMENT NEEDED 

MIDDLE BYTE ZERO MEANS NO CARRY 
ALL BYTES ZERO?? 
BRANCH IF YES 



THESE LINES IF CODE, SOMEWHAT CRYPTIC, 
CALCULATE THE POINT AT WHICH THE 
LAST BLOCK CONTAINING THE LAST BIT 
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000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 
000392 
000393 
000394 
000395 
000396 
000397 
000398 
000399 
000400 



* OF DATUM 



THE FOLLOWING IS ROUGHLY A /512 
ALGORITHM 



PUR2 
PURl 



PURHI 
EOFOUT 



DEY 
TXA 
LSR 
TYA 
ROR 

JSR 
LDY 
LDA 
ORA 

STA 
LDA 
CLC 
ADC 
LDY 
STA 
INY 
LDA 
BCC 
LDA 
STA 
CLC 
RTS 



PURLBLKS 
#FCBSTAT 
(FCBPTR) , Y 
#IDXMOD 
(FCBPTR) , Y 
PURUSE 

#2 

#FCBUSE 
(FCBPTR) , Y 

#0 

PURHI 
#1 

(FCBPTR) , Y 



PURLBLKS EQU * 

* INPUT ARG: A REGISTER CONTAINING 

* POINTER TO CURRENT DATA BLOCK WITHIN THE 

* CURRENT INDEX BLOCK (TINDX) 

* DEALLOCATE ALL LEGAL BLOCKS AFTER 

* THE A REGISTER PTR. NO ERRORS POSSIBLE 



PURLRTS 
PURUSE 
PURPLACE 
TRELEASE 



GETEOF 
OUTEOF 



TAY 

STY 

INY 

BEQ 

INC 

LDA 

TAX 

LDA 

STA 

TXA 

DEC 

ORA 

BEQ 

LDA 

PHA 

LDA 

STA 

PLA 

STY 

JSR 

LDY 

CLC 

LDA 

ADC 

STA 

INY 

LDA 

ADC 

STA 

LDY 

JMP 

RTS 

DS 

DS 

EQU 

JMP 

LDY 
LDX 
LDA 
STA 
INY 
CPY 
BEQ 
INC 



PURUSE 

PURLRTS 
TINDX+1 
(TINDX) , Y 

#0 

(TINDX) , Y 

TINDX+1 
(TINDX) , Y 
PURLOOP 
(TINDX) , Y 

#0 

(TINDX) , Y 

PURPLACE 

DEALLOC 

#VCBTFRE 

(VCBPTR) , Y 
#1 

(VCBPTR) , Y 

(VCBPTR) , Y 
#0 

(VCBPTR) , Y 

PURPLACE 

PURLOOP 

1 

1 

EOFOUT 

#FCBEOF 
#0 

(FCBPTR) , Y 
(C. OUTEOF, X) 

#FCBE0F+3 
OFFRTS 
C . OUTEOF 



MAKES A GOOD PTR TO DO THE RELEASING 
MARK INDEX BLOCK 
AS DIRTY 



INDICATE NEW NUMBER OF BLOCKS USED 

ACCOUNT FOR CARDINAL AND INDEX 

FILE LOW BYTE 

ANTICIPATE <257 BLOCKS 

>256 BLOCKS IN FILE 
HIGH BYTE BLOCKS USED 

NO ERRORS POSSIBLE 

PURGE LATTER BLOCKS 



MAKE PROPER INDEX 

INDICATES NUMBER OF BLOCKS IN USE IN FILE 
POINT TO A PTR TO DATA BLK TO DEALLOCATE 
NO MORE BLOCKS IN INDEX 
GET HIGH PART OF BLOCK ADDR 

X IS A PASSING FARM 

TELL INDEX BLOCK THAT THE DATA 

BLOCK IS NOW FREE 

AND LOW PART 

INDICATED ADDR WAS ZERO-ZERO 
A REG IS ANOTHER PASSING PARM 



AND SET LOW DATA ADDR AS FREED 



TEMP STORAGE 

DEALLOCATE BLOCK (ADDR: A (LOW), X ( HIGH) 



ADJUST NUMBER OF FREE BLOCKS ON VOLUME 



; HIGH BYTE OF TOTAL FREE 



CURRENT NUMBER OF BLOCKS USED 

CURRENT PLACE IN RELEASE-BLOCK CYCLE 



; RELEASE TWO LEVEL TREE CODE GOES HERE 



INDEX TO END OF FILE MARK 

WE'VE GOT INDIRECT BOTH WAYS (IN S OUT) 



BRANCH IF ALL THREE BYTES TRANSFERED. 
BUMP USER'S POINTER. 
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000401 BNE 

000402 INC 

000403 BNE 

000404 * 

000405 CHN 
000406 

000407 ************************************************************************* 

000408 * END OF APPLE /,'/ SOS 1.3 SOURCE CODE PILE: CLOSE. EOF 

000409 ************************************************************************* 
000410 

End of File — Lines: 410 Characters: 15893 



OUTEOF 
C.OUTEOF+1 

OUTEOF ; BRANCH ALWAYS 

DESTROY, 4, 2 
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FILE: "SOS. COMP. OPR. IPL. TEXT' 



000001 ************************************************************************* 

000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: COMP. OPR. IPL 

000004 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

000005 

000006 :TABS 17,23,40 

000007 ::PR#1,L58 132N 

000008 SL4:DR1:ASM OPRMSG.SRC,OPRMSG.OBJ, 6, 1 

000009 SL4:DR1:ASM IPL.SRCl, IPL.OBJ, 6, 1 

000010 SL4 :DR1:A, 6, 1 

000011 END 
000012 

000013 ************************************************************************* 

000014 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: COMP. OPR. IPL 

000015 ************************************************************************* 



End of File — Lines: 15 Characters: 579 
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FILE : "SOS . COMP . SOS . NOLIST . TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: COMP . SOS .NOLIST 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
:TABS 17,23,40 

SL4 : DRl : ASM SOSLDR . SRC, SOSLDR . OBJ, 6 , 1 

SL4 :DR1:ASM INIT.SRC, INIT.OBJ, 6, 1 

SL4:DR1:ASM SYSGLOB.SRC, SYSGLOB.OBJ, 6, 1 

SL4 : DRl : ASM OPRMSG . SRC , OPRMSG . OB J, 6 , 1 

SL4 :DR1 : ASM BFM. INIT2 . SRC, BFM. INIT2 .OBJ, 6, 1 

SL4:DR1:ASM IPL . SRCl , IPL . OBJ, 6, 1 

SL4 :DR1 :ASM UMGR. SRC, UMGR. OB J, 6, 1 

SL4 :DR2 :ASM DISK3.SRC, DISK3 .OBJ, 6,1 

SL4 :DR2 :ASM SYSERR.SRC, SYSERR.OBJ, 6,1 

SL4 :DR2 :ASM SCMGR. SRC, SCMGR.OBJ, 6, 1 

SL4:DR2:ASM FMGR. SRC, FMGR.OBJ, 6, 1 

SL4 :DR2 :ASM CFMGR. SRC, CFMGR.OBJ, 6, 1 

SL4 : DR2 : ASM DEVMGR . SRC , DEVMGR . OBJ, 6 , 1 

SL4 : DR2 : ASM BUFMGR . SRC , BUFMGR . OBJ, 6 , 1 

SL4 :DR2;ASM MEMMGR.A. SRC,MEMMGR.OBJ, 6, 1 

END 

************************************************************************* 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: COMP. SOS .NOLIST 
************************************************************************* 



End of File 



Lines: 27 Characters: 1028 
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FILE: "SOS. COMPILE. BFM. TEXT" 



000001 ************************************************************************* 

000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: COMPILE. BFM 

000004 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
000005 

000006 :T 17,23,40 

000007 ::PR#1,L58 132N 

000008 : :SL4:DR1:ASM PRINT, BFM. OBJ, 6, 1 

000009 ::END 
000010 

000011 ********************************************************* 

000012 * END OF APPLE /// SOS 1.3 SOURCi CODh FILE: COMPILE. BFM 

000013 ************************************************************************* 



End of File — Lines: 13 Characters: 525 
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FILE: "SOS. COMPILE. SOS. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: COMPILE. SOS 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

:TABS 17,23,40 
::PR#1,L58 132N 

SL4 : DRl : ASM SOSLDR . SRC, SOSLDR . OBJ, 6 , 1 

SL4 :DR1:ASM INIT.SRC, INIT.OBJ, 6, 1 

SL4 :DR1:ASM SYSGLOB.SRC, SYSGLOB.OBJ, 6, 1 

SL4 : DRl : ASM BFM . INIT2 . SRC, BFM. INIT2 . OBJ, 6 , 1 

SL4 :DR1 :ASM OPRMSG . SRC, OPRMSG. OBJ, 6,1 

SL4:DR1:ASM IPL . SRCl, IPL . OBJ, 6, 1 

SL4 :DR2 :ASM UMGR. SRC, UMGR. OBJ, 6, 1 

SL4 :DR2 :ASM DISK3 . SRC, DISK3 .OBJ, 6, 1 

SL4 : DR2 : ASM SYSERR . SRC , S YSERR . OB J, 6 , 1 

SL4 : DR2 : ASM DEVMGR . SRC , DEVMGR . OBJ, 6 , 1 

SL4 :DR2 :ASM SCMGR. SRC, SCMGR.OBJ, 6, 1 

SL4 : DR2 : ASM FMGR . SRC , FMGR . OBJ, 6 , 1 

SL4 :DR2 :ASM CFMGR. SRC, CFMGR. OBJ, 6, 1 

SL4 :DR2 :ASM BUFMGR. SRC, BUFMGR. OBJ, 6, 1 

SL4 :DR2 :ASM MEMMGR. A. SRC,MEMMGR. OBJ, 6, 1 

: :END 

************************************************************************* 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: COMPILE. SOS 

************************************************************************* 



End of File 



Lines: 28 Characters: 1039 
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FILE: "SOS. CREATE. TEXT" 



000001 

000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: CREATE 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



CREATl 
ZERCALL 



PAGE 

EQU 

INC 

JSR 

ECS 

LDA 

SEC 

RTS 

CMP 
BNE 
LDA 
BNE 
LDA 
SEC 
RTS 

LDY 
LDA 
STA 
DEY 
BPL 
LDA 
STA 
LDY 
BEQ 
DSY 
CPY 
BCC 
LDA 
RTS 

LDA 
STA 
DEY 
BPL 
LDY 
LDA 
TAY 
LDA 
STA 
DEY 
BPL 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
BCS 
LDA 
CMP 
BCC 
JMP 
PAGE 

LDX 
LDA 
BEQ 
LDA 
SEC 
RTS 



CFLAG 
LOOKFILE 
TSTFNF 
#DUPERR 



#FNFERR 

CRERRl 

NOFREE 

CREATl 

#DIRFULL 



#$9 
#0 

C.FILID, Y 

ZERCALL 
#SEEDTYP 
C . STOP 
C . XLEN 
CRENAM 

#$9 

MOVPARM 
#BADLSTCNT 



(C.XLIST) , Y 
C.FILID, Y 

MOVPARM 
#0 

(PATHNML) , Y 

(PATHNML) , Y 
DFIL+D.STOR, Y 



SAY WE ARE IN CREATE (DIR EXTEND) 
CHECK FOR DUPLICATE / GET FREE ENTRY 
ERROR CODE IN ACC MAY BE 'FILE NOT FOUND' 

TELL EM A FILE OF THAT NAME ALREADY EXISTS 

INDICATE ERROR ENCOUNTERED 
RETURN ERROR IN ACC. 

'FILE NOT FOUND' IS WHAT WE WANT 

PASS BACK OTHER ERROR. 

TEST FOR DIRECTORY SPACE 

BRANCH IF VALID FREE ENTRY WAS FOUND. 

RETURN DIRECTORY FULL ERROR 



SET UP DEFAULT PARAMETERS FOR CREATE 
IN THE SPACE DIRECTLY FOLLOWING THE 
CALL SPECIFCATION AND THEN 
CHECK FOR ADDITIONAL PARAMETERS FROM 
USER'S CALL SPEC VIA 'C.CLIST' 
DEFAULT TYPE IS 'SEED' TREE INDEX 

GET THE LENGTH OF THE CALL XTENSION LIST 
IF ZERO THEN USE DEFAULTS 
(SINCE THE POINTER IS AT BYTE 0) 
MAKE SURE WE DON'T HAVE TOO MANY PARAMETERS 
MOVE 'EM IF REASONABLE COUNT. 
INVALID LIST COUNT 
RETURN ERROR. 

MOVE IN THE USER SPECIFIED 
PARAMETERS. VALIDITY IS CHECKED 
AT VARIOUS POINTS FURTHER ALONG IN 
THIS PROCESS. 

MOVE LOCAL FILE NAME TO ENTRY BUFFER. 
GET LENGTH OF LOCAL NAME 



(MOVE ALL, INCLUDING LENGTH BYTE.) 



CRENAMl 
C.FILID 
DFIL+D.FILID 
C.AUXID 
DFIL+D.AUXID 
C.AUXID+1 
DFIL+D.AUXID+1 

#READEN+WRITEN+RENAMEN+DSTROYEN 

DFIL+D.ATTR 



; MOVE FILE AND AUX ID. 



D . HEAD 

DFIL+D.DHDR 

D.HEAD+1 

DFIL+D.DHDR+1 

TWRPROTl 

CRERRl 

C.STOR 

#4 

SEED 
NOTREE 



#SEEDTYP 
C.EOFHH 
SEEDl 
#OVRERR 



SEEDl 



SAVE FILE'S HEADER ADDRESS TOO. 



; CAN WE WRITE TO THIS DISKETTE? 

; NOW TEST STORAGE TYPE FOR TREE TYPE FILES 

; NOTE; THIS IS HARD CODED SINCE ALL TREES ARE LESS THAN 4 *********** 

; BRANCH IF SOME TYPE OF TREE (SEED, SAPLING...) 

; GO TEST FOR SOME OTHER TYPE (SUCH AS DIRECTORY) . 



START OUT ASSUMING A SEED FILE 
TEST FOR OUT OF RANGE PREALLOCATION 
(HOPEFULLY BRANCH ALWAYS) 
REPORT UNABLE TO SATISFY REQUEST. 
INDICATE ERROR 



; CALCULATE THE NUMBER OF 
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000077 




STA 


DFIL+D .EOF+2 


BLOCKS NEEDED FOR PRE -ALLOCATION 


000078 




LSR 


A 




r\ /\ "1 f\ 

oooovy 




TAY 




Y HOLDS THE NUMBER OF INDEX BLOCKS NEEDED 


OOOOoO 




STA 


DATBLKH 




A A A A A T 

OOOOol 




LDA 


C . EOFLH 


(CARRY UNDISTURBED FROM LAST SHIFT) 


A A A A A O 

000082 




STA 


DFIL+D .EOF+1 




A A A A O O 

OUUOo J 




ROR 


A 


WE NOW HAVE THE LOW ORDER COUNT OF NEEDED DATA BLOCKS 


000084 




STA 


DATBLKL 




000085 




LDA 


C . EOFLL 




000086 




STA 


DFIL+D . EOF 


(CARRY IN TACT FROM LOW COUNT) 


000087 




BNE 


INCDATA 


BUMP THE COUNT ON DATA BLOCKS IF REQUEST 


A A A A A A 

000088 




BCC 


TSTSAP 


IS NOT A MULTIPLE OF 512. 


A A A A A A 

000089 


INCDATA 


INC 


DATBLKL 




A A A A A A 

000090 




BNE 


TSTSAP 




A A A A A T 

000091 




INY 




MUST INCREASE NUMBER OF INDEXES ALSO . 


A A A A A A 

000092 




INC 


DATBLKH 




000093 


TSTSAP 


TYA 




IF NON ZERO, THEN IT'S AT LEAST A SAPLING. 


000094 




BNE 


SAPLING 




000095 




LDA 


DATBLKL 


TO QUALIFY AS AN HONEST SEED, 


000096 




BNE 


TSTSEED 


THEN ONE OR LESS DATA BLOCKS REQUESTED 


A A A A A T 

000097 




INC 


DATBLKL 


(MUST BE AT LEAST ONE BLOCK ALLOCATED 


A A A A A A 

000098 




BNE 


CREALC 


TYPE IS SEED. BRANCH ALWAYS 


A A A A A A 

000099 


TSTSEED 


CMP 


#1 


IF GREATER THAN ONE, IT'S NOT A SEED. 


A A A T A A 

000100 




BEQ 


CREALC 


IT IS A SEED. CONTINUE CREATION 


A A A T n 1 

OOUlOi 




I NX 




THE TYPE I S SAPLING . 


000102 




INY 




ONE INDEX BLOCK IS NEEDED. 


000103 




BNE 


CREALC 


BRANCH ALWAYS 


000104 




PAGE 






000105 










A A A T A z' 

000106 


SAPLING 


INX 




TYPE IS AT LEAST SAPLING. 


A A A T AT 

000107 




CMP 


#1 


NO MORE THAN ONE INDEX BLOCK FOR A SAPLING 


A A A T A A 

000108 




BNE 


TREE 




A A A T A A 

000109 




LDA 


DATBLKL 


MUST BE SURE THIS IS REAL MAX SAPLING (128K FILE) 


A A A 1 T A 

000110 




BEQ 


CREALC 


BRANCH IF IT IS. 


000111 


TREE 


INY 




ACCOUNT FOR ADDITIONAL 2ND LEVEL INDEX 


000112 










000113 




INX 




TYPE IS TREE (2 LEVEL INDEX) 


000114 




INY 




ADD AN EXTRA INDEX BLOCK FOR TOP INDEX 


000115 


CREALC 


STY 


INDXBLK 


STORE INDEX BLOCK COUNT 


A A A T T 

000116 




TXA 




PUT STORAGE TYPE IN DIRECTORY ENTRY 


000117 




ASL 


A 




A A A T •^ A 

000118 




ASL 


A 




A A A 1 T A 

000119 




ASL 


A 




000120 




ASL 


A 




000121 




ORA 


DFIL+D . STOR 




000122 




STA 


DFIL+D . STOR 




000123 




STX 


LEVELS 


SAVE NUMBER OF INDEX LEVELS FOR PREALLOCATION . 


000124 




TYA 




NOW FIGURE THE TOTAL NUMBER OF 


A A A T A IT 

000125 




CLC 




BLOCKS NEEDED (DATA + INDEX BLOCKS) 


A A A T A 

000126 




ADC 


DATBLKL 




A A A T AT 

000127 




STA 


DFIL+D .USAGE 


(MIGHT AS WELL RECORD IT IN DIR 


A A A 1 AO 
00012O 




STA 


REQL 


WHILE WE ' RE AT IT . ) 


000129 




LDA 


DATBLKH 




000130 




ADC 


#0 


UPDATE HI BYTE TOO 


000131 




STA 


DFIL+D .USAGE+1 




000132 




STA 


REQH 




A A A T AO 

000133 




LDX 


D. DEV 


PASS ALONG THE DEVICE WE'RE TALKIN ABOUT. 


A A A T O yi 

000134 




JSR 


TSFRBLK 


'TEST FREE BLOCKS' FINDS OUT IF ENOUGH FREE SPACE EXISTS 


A A A T O C 

000135 




BCS 


OVFLOW 


BRANCH IF NOT ENOUGH SPACE. 


A A A T O /" 

000136 




JSR 


ALCIBLK 


GO ALLOCATE FIRST BLOCK 


A A A 1 O "7 

00013 / 




BCS 


CRERR 




000138 




STA 


DFIL+D . FRST 


(RETURNS ACC=LOW Y=HIGH) 


000139 




STA 


I DXADRL 


SAVE AS ADDRESS FOR INCORE INDEX ALSO. 


A n A T /I A 

000140 




STY 


DFIL+D . FRST+1 




000141 




STY 


IDXADRH 




000142 




JSR 


ZERGBUF 


GO CLEAN OUT GBUF 


A A A T /I O 

000143 




JSR 


GTTINDX 


GET TEMPORARY SPACE FOR AN INDEX BLOCK 


000144 




JSR 


ZTMPIDX 


AND ZERO IT OUT. 


A A A T /I IT 

000145 




LDX 


LEVELS 




A A A 1 AT 
UO 1 4 D 




DEX 




TEST FOR NUMBER OF LEVELS NEEDED. 


000147 




BEQ 


ENDCRE 


BRANCH IF SEED FILE. 


000148 




DEX 




IS IT A SAPLING PRE - ALLOC AT I ON . 


000149 




BEQ 


SAPFILE 




000150 




LDY 


INDXBLK 


LOAD NUMBER OF INDEX BLOCKS NEEDED 


000151 




DEY 




REMOVE THE ONE JUST ALLOCATED. 


000152 




STY 


REQL 




000153 




STY 


INDXBLK 




000154 




JSR 


ALCIDXS 


GO ALLOCATE INDEXES FOR LOWER INDEX BLOCKS. 


000155 




BCS 


CRERR 




000156 




JSR 


WRTDFRST 


GO WRITE TREE TOP INDEX BLOCK. 


000157 




BCS 


CRERR 


BRANCH IF UNABLE TO DO THIS. 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 



SAPFILE 
LSTSAP 



LDA 

STA 

PAGE 

LDY 

LDA 

STA 

INC 

LDA 

STA 

DEC 

DEC 

BEQ 

LDA 

STA 

JSR 

BCS 

JSR 

BCS 

INC 

JSR 

BCC 

SEC 

RTS 



EQU 
LDA 
STA 
JSR 
BCS 
JSR 
BCS 
LDX 
LDA 
STA 
DEX 
BPL 
INC 
BNE 
INC 
LDX 
LDA 
STA 
DEX 
BPL 
LDX 
JSR 
BCS 
JSR 
RTS 

PAGE 

JSR 

LDA 

STA 

JSR 

BCS 

LDY 

STY 

LDA 

STA 

INC 

LDA 

STA 

DEC 

JSR 

BCS 

LDA 

STA 

LDY 

INY 

DEC 

BEQ 

STY 

LDA 

STA 

INC 

TAX 

BNE 

CMP 

BNE 



#0 

TREPTR 

TREPTR 
(TINDX) , Y 
IDXADRL 

TINDX+1 
(TINDX) , Y 
IDXADRH 
TINDX+1 
INDXBLK 
LSTSAP 
#0 

REQL 
SAPINDX 

CRERR 

WRTINDX 

CRERR 

TREPTR 

RDFRST 

FILLTREE 



DATBLKL 

REQL 

SAPINDX 

CRERR 

WRTINDX 

CRERR 

#3 

DATELO,X 
DFIL+D.CREDT,X 

TRETIME 
H . FCNT 
ENDCREl 
H.FCNT+1 
#3 

DATELO,X 
DFIL+D.MODDT,X 

ENDCRX 

D.DEV 

UPBMAP 

CRERR2 

DREVISE 



ZTMPIDX 

REQL 

TLINK 

ALCIDXS 

CRERR 

#0 

SAPTR 
(TINDX) , Y 

BLOKNML 
TINDX+1 
(TINDX) , Y 
BLOKNMH 
TINDX+1 
WRTGBUF 
CRERR 
TLINK 
REQL 
SAPTR 

REQL 
DAT DONE 
SAPTR 
(TINDX) , Y 
BLOKNML 
TINDX+1 

DATITl 
(TINDX) , Y 
DATITl 



INIT INDEX POINTER 



GET ADDRESS OF LOWER BLOCK 

BUMP TO PAGE 2 TO GET HI ADDRESS. 
GET HIGH ADDRESS. 

CLEAN UP AFTER SELF . . . 

IS THIS THE LAST BLOCK ALLOCATED? 

YES, ALLOCATE PARTIAL FILLED INDEX BLOCK 

ALLOCATE ALL 256 INDEXES 

AND WRITE ZEROED DATA BLOCKS. 
STOP IF ERROR ENCOUNTERED. 
WRITE INDEX BLOCK 
HOPEFULLY NEVER TAKEN. 

READ IN TOP INDEX AGAIN. 
BRANCH IF NO ERROR. 
JUST IN CASE IT WAS CLEAR. 
RETURN ERROR. 



GET NUMBER OF DATA BLOCKS (LOW BYTE) REQUESTED. 
GO ALLOCATE DATA BLOCKS AND WRITE EM. 
GO WRITE INDEX BLOCK. (FOR SEED THIS IS DATA.) 
MOVE CREATION TIME FOR THIS ENTRY 

ADD ONE TO TOTAL NUMBER OF FILES IN SPECIFIED DIRECTORY. 



ENSURE MOD 
DATE /TIME 
IS 

INITIALIZED 

UPDATE APPROPRIATE BIT MAP 

BRANCH ON BITMAP UPDATE ERR 
UPDATE DIRECTORY LAST 
RETURN ERRORS OR OK RESULT 



; ZERO OUT ANY STUFF LEFT OVER. 

; PRESERVE REQUEST COUNT 

; GO ALLOCATE REQUESTED NUMBER OF BLOCKS. 

; THEN WRITE ZEROS TO DATA BLOCKS. 

; USE AS POINTER TO INDEX BLOCK 

; GET DATA BLOCK ADDRESS (LOW BYTE) . 



; GET HIGH ADRRESS OF PRE -ALLOCATED DATA BLOCK. 

; (RESET BUFFER ADDRESS) 
; WRITE DATA BLOCK 

; GET NUMBER REQUESTED AGAIN 

GET POINTER TO INDEX BLOCK AGAIN. 

ANTICIPATE DOIN' THE NEXT DATA BLOCK 

DO WE INDEED HAVE ANOTHER BLOCK TO WRITE. 

NO, ALL DONE (CARRY CLEAR) . 

USE AS POINTER TO INDEX BLOCK 

GET DATA BLOCK ADDRESS (LOW BYTE) . 

; BUMP HI ADDR OF INDEX BUFFER TO ACCESS HIGH ADDR. 
; WAS LOW ADDRESS A ZERO? 

; IF NOT, NO NEED TO CHECK VALIDITH OF HI BYTE 
; BOTH BYTES CAN'T BE ZERO. 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000285 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 



DATDONE 
REPEATIO 



ZERGBUF 
ZGBUF 



ZTMPIDX 
ZINDXl 



ZINDX2 



CRERR2 
NOTREE 



DADDl 
TSDIRSZ 



LDA 
JSR 
LDA 
STA 
DEC 
LDA 
STA 
JSR 
BCC 
RTS 

EQU 
LDA 
STA 
JMP 

LDY 
TYA 
STA 
STA 
INY 
BNE 
RTS 



LDY 

TYA 

STA 

INY 

BNE 

INC 

STA 

INY 

BNE 

DEC 

RTS 

PAGE 

CMP 

BEQ 

JMP 

LDA 

ORA 
BEQ 
LDA 
SEC 
RTS 

LDA 
LSR 
TAY 

LDA 
BNE 
BCC 
INY 
TYA 
BEQ 
STA 
STA 
ASL 
STA 
LDA 
STA 
STA 
STA 
JSR 
BCS 
JSR 
JSR 
BCS 
STA 
STA 
STY 
STY 
LDA 
STA 
LDA 
STA 
LDY 
BNE 
LDA 



#ALCERR 
SYSDEATH 
(TINDX) , Y 
BLOKNMH 
TINDX+1 
#GBUF/256 
DBUFPH 
REPEATIO 
DATINIT 



#RPTCMD 

DHPCMD 

RPEATIOl 



GET HIGH ADRRESS OF PRE -ALLOCATED DATA BLOCK. 
(RESET BUFFER ADDRESS) 



RESET TO ADDR TO GBUF JUST TO BE SURE. 
WRITE DATA BLOCK 



RETURN STATUS (CARRY SET IF ERROR) 



#0 



GBUF, Y 
GBUF+$100,Y 



#0 

(TINDX) , Y 

ZINDXl 
TINDX+1 
(TINDX) , Y 

ZINDX2 
TINDX+1 



#DIRTYP 

ISDIR 

NOTDIR 

C . EOFHH 
C . EOFHL 
ISDIRl 
#OVRERR 



C.EOFLH 
A 

C.EOFLL 

DADDl 

TSDIRSZ 



DADDl 

DFIL+D. USAGE 

REQL 

A 

DFIL+D. EOF+1 
#0 

DFIL+D. EOF 

DFIL+D. EOF+2 

REQH 

TSFRBLK 

DIROVR 

ZERGBUF 

ALCIBLK 

CRERR2 

DFIL+D. FRST 

TLINK 

DFIL+D. FRST+1 

TLINK+1 

SOSTMPL 

GBUF 

SOSTMPH 

GBUF+1 

#4 

DRSTUFl 
D.ENTBLK, Y 



ZERO OUT THE GENERAL PURPOSE BUFFER 



WIPE OUT BOTH PAGES 
WITH SAME LOOP. 



ZERO OUT TEMPORARY INDEX BLOCK 



THIS HAS TO BE DONE A 
TIME SINCE IT'S INDIRECT. 



RESTORE PROPER ADDRESS 



IS A DIRECTORY TO BE CREATED? 

YES, DO SO. . . 

NO, TRY NEXT TYPE. 

CAN'T CREATE A DIRECTORY LARGER THAN 

127 BLOCKS (THAT'S HUGE!) 
BRANCH IF WITHIN LIMITS, OTHEWISE 
REQUESTED DIRECTORY SIZE CAN'T BE 
CREATED. SET CARRY TO INDICATE ERROR. 



CALCULATE HOW MANY BLOCKS WILL 
BE NEEDED FOR THIS NEW DIRECTORY. 
(SAVE INITIAL COUNT IN Y) 

IF REQUESTED EOF IS NOT AN EVEN BLOCK 

SIZE, THEN ROUND UP. 

BRANCH IF ROUNING UNNECESSARY. 

ADD ONE TO BLOCK COUNT. 

TEST TO BE SURE SIZE IS GREATER THAN ZERO 

IF ZERO THEN SIZE=1 

SAVE NUMBER OF BLOCKS TO BE USED. 

; NOW SAVE ADJUSTED END OF FILE 



REQUESTED NUMBER OF BLOCKS NEVER EXCEEDS 128 
TEST TO BE SURE ENOUGH DISK SPACE IS FREE. 
BRANCH IF REQUEST TOO LARGE. 
CLEAR CRAP FROM GBUF. 

GET ADDRESS OF FIRST (HEADER) BLOCK. 



(TLINK IS FOR REVERSE LINKAGE.) 
STORE SOS STAMP IN NEW DIRECTORY 



MOVE OTHER VARIOUS THINGS 

BRANCH ALWAYS 

MOVE OWNING ENTRY'S 
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000320 




STA 


GBUF+HRBLK+4 , Y 


BLOCK ADDRESSES AND NUMBER TO NEW HEIADER. 


000321 


DRSTUFl 


LDA 


SOSVER, Y 


MOVE VERSION, COMPATABLITY, 


000322 




STA 


GBUF+HVER+4 , Y 


ATTRIBUTES, AND ENTRY SIZE 


000323 




DEY 






000324 




BPL 


DRSTUF 




000325 




LDA 


H . ENTLN 


OVER WRITE LAST BYTE MOVED IN ABOVE LOOP WITH 


000326 




STA 


GBUF+HRELN+4 


THE PARENT DIRECTORY ENTRY LENGTH . 


000327 




LDA 


DFIL+D.STOR 


SET HEADER TYPE AND NAME 


000328 




TAY 






000329 




ORA 


#HEDTYP*16 




000330 




STA 


GBUF+HNLEN+4 




000331 




TYA 




(AND WHILE WE'RE AT IT SET DIRECTORY TYPE) 


000332 




ORA 


#DIRTYP*16 




000333 




STA 


DFIL+D.STOR 




000334 










000335 


MVHNAME 


LDA 


DFIL+D . STOR, Y 




000336 




STA 


GBUF+HNLEN+4 , Y 


MOVE HEADER NAME 


000337 




DEY 






A n A tj t) o 

000338 




BNE 


MVHNAME 




000339 




LDX 


#3 


GET CURRENT DATE . 


000340 


CRETIME 


LDA 


DATELO, X 




000341 




STA 


GBUF+HCRDT+4 , X 


SAVE AS HEADER CREATION TIME 


000342 




STA 


DFIL+D . CREDT, X 


AND DATE OF FILE CREATE. 


000343 




DEX 






000344 




BPL 


CRETIME 




000345 




LDA 


#$76 




000346 




STA 


GBUF+HPENAB+4 


DUMMY PAS SWORD 


000347 




DEC 


REQL 


TEST FOR ONE BLOCK DIRECTORY 


000348 




BEQ 


DIRCREND 


IT IS, FINISH UP. 


000349 




JSR 


DIRWRT 


GO WRITE FIRST DIRECTORY BLOCK AND ALLOCATE NEXT 


000350 




BCS 


DERROR 


PASS BACK ERROR. 


000351 




JSR 


ZERGBUF 


CLEAN OUT GENERAL BUFFER AGAIN. 


000352 


CRNXTDIR 


LDA 


TLINK 


MOVE LAST BLOCK ADDRESS 


000353 




STA 


GBUF 


AS BACKWARD LINK. 


000354 




LDA 


TLINK+1 




000355 




STA 


GBUF+1 




000356 




LDA 


FLINK 


MAKE FORWARD LINK INTO CURRENT ADDRESS 


000357 




STA 


TLINK 




000358 




LDA 


FLINK+1 




000359 




STA 


TLINK+1 




000360 




DEC 


REQL 


IS THIS THE LAST BLOCK? 


000361 




BEQ 


DIRCREND 




000362 




JSR 


DIRWRT 


WRITE THIS BLOCK AND ALLOCATE NEXT. 


000363 




BCS 


DERROR 




000364 




LDA 


#0 


ZERO OUT FORWARD LINK 


000365 




STA 


GBUF+2 




000366 




STA 


GBUF+3 




000367 




BEQ 


CRNXTDIR 


BRANCH ALWAYS 


000368 










000369 


DIRCREND 


JSR 


DIRWRTl 


WRITE LAST BLOCK OF THIS DIRECTORY 


000370 




BCS 


DERROR 




000371 




JMP 


ENDCREO 


FINISH UP WRITING OWNER DIRECTORY STUFF. 


000372 










000373 


DIRWRT 


JSR 


ALCIBLK 


GET ADDRESS OF NEXT BLOCK. 


000374 




BCS 


DERROR 




000375 




STA 


GBUF+2 




000376 




STY 


GBUF+3 


SAVE LINK ADDRESS 


000377 




STA 


FLINK 




000378 




STY 


FLINK+1 




000379 


DIRWRTl 


LDA 


TLINK 


GET ADDRESS OF CURRENT BLOCK 


A A A t) O A 

0003o0 




STA 


BLOKNML 




000381 




LDA 


TLINK+1 




000382 




STA 


BLOKNMH 




000383 




JMP 


WRTGBUF 


GO WRITE IT OUT 


000384 




PAGE 






000385 










000386 


ERRGBUF 


EQU 






000387 


DERROR 


RTS 






000388 










A A A O A 

000389 










000390 


SOSTMPL 


DFB 


$0 


THE FOLLOWING TWO BYTES ARE THE ' SOS STAMP ' 


000391 


SOSTMPH 


DFB 


$0 




000392 










000393 


SOSVER 


DFB 


0,0,0, $27, 13 




000394 


* 








000395 


* 








000396 


RNDTAB 


EQU 


* 




000397 


ENTCALC 


LDA 


#GBUF/256 


SET HIGH ADDRESS OF DIRECTORY ENTRY INDEX POINTER 


000398 




STA 


DRBUFPH 




000399 




LDA 


#4 


CALCULATE ADDRESS OF ENTRY BASED 


000400 




LDX 


D . ENTNUM 


ON THE ENTRY NUMBER 
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000401 


ECALCO 


CLC 






000402 


ECALCl 


DEX 




; ADDR^GBUF+ ( (ENTNUM-l) *ENTLEN) 


000403 




BEQ 


ECALC2 




000404 




ADC 


H . ENTLN 




000405 




BCC 


ECALCl 




000406 




INC 


DRBUFPH 


; BUMP HI ADDRESS 


000407 




BCS 


ECALCO 


; BRANCH ALWAYS . 


000408 










000409 


ECALC2 


STA 


DRBUFPL 


; SAVE NEWLY CALCULATED LOW ADDRESS 


000410 




RTS 






000411 




PAGE 






000412 


DERR0R2 


RTS 






000413 










000414 


DREVISE 


LDA 


DATELO 


; IF NO CLOCK, 


000415 




BEQ 


DREVISE 1 


; THEN DON'T TOUCH MOD T/D 


000416 




LDX 


#3 


; MOVE LAST MODIFICATION DATE/TIME TO ENTRY BEING UPDATED 


000417 


MODTIME 


LDA 


DATELO, X 




000418 




STA 


DFIL+D .MODDT, X 




000419 




DEX 






000420 




BPL 


MODTIME 




000421 










000422 


DREVISE 1 


LDA 


DFIL+D . ATTR 


; MARK ENTRY AS BACKUPABLE 


000423 




ORA 


BKBITFLG 


; BIT 5 = BACKUP NEEDED BIT 


000424 




STA 


DFIL+D .ATTR 




000425 




LDA 


D . DEV 


; GET DEVICE NUMBER OF DIRECTORY 


000426 




STA 


DEVNUM 


; TO BE REVISED. 


000427 




LDA 


D . ENTBLK 


; AND ADDRESS OF DIRECTORY BLOCK 


000428 




STA 


BLOKNML 


; THAT CONTAINS THE ENTRY. 


000429 




LDA 


D . ENTBLK+1 




000430 




STA 


BLOKNMH 




000431 




JSR 


RDGBUF 


; READ BLOCK INTO GENERAL PURPOSE BUFFER. 


000432 




BCS 


ERRGBUF 




000433 




JSR 


ENTCALC 


; FIX UP POINTER TO ENTRY LOCATION WITHIN GBUF. 


000434 




LDY 


H . ENTLN 


; NOW MOVE 'D.' STUFF TO DIRECTORY. 


000435 




DEY 






000436 


MVDENT 


LDA 


DFIL+D . STOR, Y 




000437 




STA 


(DRBUFPL) , Y 




000438 




DEY 






000439 




BPL 


MVDENT 




000440 




LDA 


D . HEAD 


; IS THE ENTRY BLOCK THE SAME AS THE 


000441 




CMP 


BLOKNML 


; ENTRY'S HEADER BLOCK? 


000442 




BNE 


SVENTDIR 


; NO, SAVE ENTRY BLOCK 


000443 




LDA 


D . HEAD+1 


; MAYBE, TEST HIGH ADDRESSES 


000444 




CMP 


BLOKNMH 




000445 




BEQ 


UPHEAD 


; BRANCH IF THEY ARE THE SAME BLOCK. 


000446 


SVENTDIR 


JSR 


WRTGBUF 


; WRITE UPDATED DIRECTORY BLOCK 


000447 




BCS 


DERR0R2 


; RETURN ANY ERROR. 


000448 




LDA 


D . HEAD 


; GET ADDRESS OF HEADER BLOCK 


000449 




STA 


BLOKNML 




000450 




LDA 


D. HEAD+1 




000451 




STA 


BLOKNMH 




000452 




JSR 


RDGBUF 


; READ IN HEADER BLOCK FOR MODIFICATION 


000453 




BCS 


DERR0R2 




000454 


UPHEAD 


LDY 


#1 


; UPDATE CURRENT NUMBER OF FILES IN THIS DIRECTORY 


000455 


UPHEDl 


LDA 


H . FONT, Y 




000456 




STA 


GBUF+HCENT+4 , Y 


; (CURRENT ENTRY COUNT) 


000457 




DEY 






000458 




BPL 


UPHEDl 




000459 




LDA 


H.ATTR 


; ALSO UPDATE HEADER'S ATTRIBUTES. 


000460 




STA 


GBUF+HATTR+4 




0004 61 




JSR 


WRTGBUF 


; GO WRITE UPDATED HEADER 


000462 


DERRORl 


RTS 




; IMPLICITLY RETURN ANY ERRORS 


000463 










000464 




PAGE 






000465 










000466 


NOTDIR 


LDA 


#TYPERR 


; NOT TREE OR DIRECTORY- NOT A RECOGNIZED TYPE! 


000467 


TSTERR 


SEC 






000468 




RTS 




; DO NOTHING. 


000469 










000470 










000471 


TSTSOS 


LDA 


GBUF 


; TEST SOS STAMP 


000472 




CMP 


SOSTMPL 




000473 




BNE 


TSTERR 




000474 




LDA 


GBUF+1 




000475 




CMP 


SOSTMPH 




000476 




BNE 


TSTERR 




000477 




LDA 


GBUF+4 


; TEST FOR HEADER 


000478 




AND 


#$E0 




000479 




CMP 


#HEDTYP*16 




000480 




BNE 


TSTERR 


; BRANCH IF NOT SOS HEADER (NO ERROR NUMBER) 


000481 




CLC 




; INDICATE NO ERROR 
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000482 


RTS 






000483 








000484 


CHN 


FNDFIL, 4 , 1 




000485 


NE TSTERR 






000486 


LDA 


GBUF+4 


; TEST FOR HEADER 


000487 


AND 


#$E0 




000488 


CMP 


#HEDTYP*16 




000489 


BNE 


TSTERR 


; BRANCH IF NOT SOS HEADER (NO ERROR NUMBER) 


000490 


CLC 




; INDICATE NO ERROR 


000491 


RTS 






000492 








000493 


CHN 


FNDFIL, 4 , 1 




000494 


ERROR 






000495 


RTS 






000496 








0004 97 


CHN 


FNDFIL, 4 , 1 




000498 


ENTRY 


TOO. 




000499 


LDY 


#D.M0DDT+3 




000500 


RIPTIME LDA 


DATELO, X 




000501 


STA 


(DRBUFPL) , Y 




000502 


DEY 






000503 


DEX 






000504 


BPL 


RIPTIME 


;MOVE ALL FOR BYTES. . . 


000505 


RUPDATE JSR 


WRTGBUF 


;WRITE UPDATED ENTRY BACK TO DISK. (ASSUMES BLOKNM UNDISTURBEDD) 


000506 


BCS 


DERRORl 


;GIVE UP ON ANY ERROR. 


000507 


LDY 


#D. DHDR 


;NOW COMPARE CURRENT BLOCK NUMBER TO THIS 


000508 


LDA 


(DRBUFPL) , Y 


; ENTRY ' S HEADER BLOCK 


000509 


I NY 






000510 


CMP 


BLOKNML 


;ARE LOW ADDRESSES THE SAME? 


000511 


STA 


BLOKNML 


; (SAVE IT IN CASE IT'S NOT) 


000512 


BNE 


RIPPLE2 


; BRANCH IF ENTRY DOES NOT RESIDE IN SAME BLOCK AS HEADER. 


000513 


LDA 


(DRBUFPL) , Y 


; CHECK HIGH ADDRESS JUST TO BE SURE. 


000514 


CMP 


BLOKNMH 




000515 


BEQ 


RIPPLE 


;THEY ARE THE SAME, CONTINUE RIPPLE TO ROOT DIRECTORY. 


000516 


RIPPLE2 LDA 


(DRBUFPL) , Y 


;THEY AREN'T THE SAME, READ IN THIS DIRECTORY'S HEADER. 


000517 


STA 


BLOKNMH 




000518 


JSR 


RDGBUF 




000519 


BCC 


RIPPLE 


;CONTINUE IF READ WAS GOOD. 


000520 


DERRORl EQU 






000521 


RTS 






000522 


PAGE 






000523 








000524 


NOTDIR LDA 


#TYPERR 


;NOT TREE OR DIRECTORY- NOT A RECOGNIZED TYPE! 


000525 


TSTERR SEC 






000526 


RTS 




;D0 NOTHING. 


000527 








000528 








000529 


TSTSOS LDA 


GBUF 


;TEST SOS STAMP 


000530 


CMP 


SOSTMPL 




000531 


BNE 


TSTERR 




000532 


LDA 


GBUF+1 




000533 


CMP 


SOSTMPH 




000534 


BNE 


TSTERR 




000535 


LDA 


GBUF+4 


;TEST FOR HEADER 


000536 


AND 


#$E0 




000537 


CMP 


#HEDTYP*16 




000538 


BNE 


TSTERR 


; BRANCH IF NOT SOS HEADER (NO ERROR NUMBER) 


000539 


DRVISDNE CLC 




; INDICATE NO ERROR./ 


000540 


RTS 






000541 


* 






000542 


CHN 


FNDFIL, 4, 1 




000543 








000544 








000545 






***************************** 


000546 


* END OF APPLE /// SOS 


1.3 SOURCE CODE FILE: 


CREATE 


000547 


********************************************************** 


End of 


File — Lines: 547 Characters: 22694 
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FILE: "SOS. DESTROY. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 

000007 * 

000008 NEWL 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 

000019 * 

000020 OFFN 
000021 
000022 

000023 OFFR 

000024 

000025 

000026 * 

000027 GETI 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 

000057 GTIN 
TRANSLATION 



************ 



APPLE /// 



**************^ 

SOS 1.3 SOURCE 



********************************************** 
CODE FILE: DESTROY 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
PAGE 



000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 



GTINF02 



GTINF03 



LDY 
LDA 
BPL 

LDA 
ORA 
STA 
LDY 
LDA 
STA 
CLC 
RTS 

LDA 
AND 
STA 
CLC 
RTS 
PAGE 

JSR 
BCC 

CMP 
SEC 
BNE 
LDA 
STA 
LDA 
STA 
STA 
JSR 
LDY 
LDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 
STA 
TAX 
DEY 
LDA 
STA 
SEC 
SBC 
STA 
TXA 
SBC 
STA 
LDY 

LDA 
BPL 
AND 
BEQ 
CMP 
BNE 
LDA 
LSR 
LSR 
LSR 
LSR 
BPL 

TAX 
LDA 

STA 
INY 
CPY 



#FCBATTR 
C.ISNEWL 
OFFNEWL 

#NLINEN 
(FCBPTR) , 
(FCBPTR) , 
IFCBNEWL 
C.NEWL 
(FCBPTR) , 



#$FF-NLINEN 
(FCBPTR) , Y 
(FCBPTR) , Y 



FINDFILE 
GTINFOl 

IBADPATH 

GINFOERR 
#$F0 

DFIL+D.STOR 
#0 

REQL 
REQH 
TSFRBLK 
#VCBTFRE+1 
(VCBPTR) , Y 
REQH 

(VCBPTR) , Y 
REQL 

(VCBPTR) , Y 
DFIL+D.AUXID+1 



(VCBPTR) , Y 
DFIL+D.AUXID 

REQL 

DFIL+D. USAGE 
REQH 

DFIL+D. USAGE+1 
#0 

INFTABL, Y 

GTINF03 

#$7F 

GTINF04 

#D.ST0R+1 

GINFOEND 

DFIL+D.STOR 

A 

A 

A 

A 

GTINF04 



DFIL,X 
(C.FILIST) , Y 



C.FILSTLN 



ADJUST NEWLINE STATUS FOR OPEN FILE. 
ON OR OFF? 

BRANCH IF NEW LINE IS TO BE CLEARED. 
SET NEW LINE BIT IN ATTRIBUTES 
AND MOVE IN NEW 'NEW-LINE' BYTE. 



NO ERROR POSSIBLE. 



CLEAR NEW-LINE BIT. 

THE NEW LINE CHARACTER DOES ' T MATTER. 



LOOK FOR FILE THEY WANT OT KNOW ABOUT. 
BRANCH IF NO ERRORS. 
WAS IT A ROOT DIRECTORY FILE? 
(IN CASE OF NO MATCH) 



FOR GET INFO, REPORT PROPER STORAGE TYPE 
FORCE A COUNT OF FREE BLOCKS. 



(RETURNS IF IMMEDIATELY IF COUNT HAS PREVIOUSLY BEEN TAKEN) 



RETURN TOTAL BLOCKS AND TOTAL IN USE. 

FIRST TRANSFER 'FREE' BLOCKS TO ZPAGE FOR LATER SUBTRACT 



TO DETERMINE THE 'USED' COUNT 



TRANSFER TO 'D.' TABLE AS AUX I.D. 

(TOTAL BLOCK COUNT IS CONSIDERED AUX I.D. FOR THE VOLUME) 



NOW SUBTRACT AND REPORT THE NUMBER OF BLOCKS 'IN USE' 



TRANSFER BYTES FROM THERE INTERNAL ORDER TO CALL SPEC VIA 'INFTABL' 



BRANCH IF THIS IS DATA IS VALID AS IS. 
IS THIS THE 4TH BYTE OF THE EOF PARAMETER? 
YES, AND IT'S ALWAYS A ZERO. 
IS THIS THE STORAGE TYPE BYTE? 

NO, IT'S THE END OF INFO THAT CAN BE RETURNED. 
GET STORAGE TYPE 



MAKE IT A VALUE 1-$F BY SHIFTING OUT FILE NAME LENGTH. 
BRANCH ALWAYS 

USE AS OFFSET INTO 'D.' TABLE. 

PASS TO USER'S BUFFER 
HAS REQUEST BEEN FILLED? 
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000076 




BNE 


GTINF02 






NO, PASS NEXT 


000077 


GINFOEND 


CLC 








INDICATE NO ERRORS 


r\ /\ "1 

000078 


GINFOERR 


RTS 










0000 /y 














OOOOoO 














000081 




PAGE 










A A A A O 

000082 














000083 


SETINFO 


JSR 


FINDFILE 






FIND WHAT USER WANTS . . . 


000084 




BCS 


SINFOERR 






RETURN ANY FAILURE. 


000085 




LDA 


C . FILSTLN 






TEST FOR NUL CHANGE 


A A A A O 

OOOOoD 




BEQ 


SINFEND 






BRANCH IF NOTHING TO CHANGE. 


A A A A 

000087 




LDY 


#0 






INIT POINTER TO USER SUPPLIED LIST. 


A A A A O O 

000088 




LDA 


(C . FILIST) , Y 






FETCH FILE ATTRIBUTES 


A A A A O A 

000089 




AND 


#$1C 






FORBIDDEN BITS? <SRS 82.162> 


A A A A n A 

ooooyo 




BEQ 


SETINFl 






NO 


A A A A A 1 

ooooyi 




LDA 


#ACCSERR 






YES 


000092 




SEC 










000093 




RTS 








RETURN AN ERROR 


A A A A A >1 

000094 


SETINFl 


LDA 


BACKMASK 






GET CURRENT BACKMASK <SRS 82.162> 


000095 


* BACKUP KNOWS 


HOW TO 


RESET THIS BIT . <SRS 


i2 


162> 


A A A A A 

000096 




STA 


BKBITFLG 






BIT (USED BY DREVISE) 


A A A A A T 

000097 


SETINFIX 


LDX 


INFTABL, Y 






GET INDEX INTO CORESPONDING 'D.' TABLE 


A A A A A n 

000098 




BMI 


SETINF2 






BRANCH IF WE'VE REACHED STORAGE TYPE PARAMETER 


A A A A A A 

000099 




LDA 


(C . FILIST) , Y 








000100 




STA 


DFIL, X 








000101 




I NY 








HAS USER'S REQUEST BEEN SATISFIED? 


000102 




CPY 


C . FILSTLN 








000103 




BNE 


SETINFIX 






NO, MOVE NEXT BYTE. 


000104 


SINFEND 


JMP 


DREVISE 






GO UPDATE DIRECTORY WITH CURRENT TIME. 


A A A T AC 

000105 














A A A T A 

000106 


SETINF2 


LDY 


C . FILSTLN 






TEST TO SEE IF USER WANTS HIS TIME STAMP ADDED 


000107 




CPY 


#$F 






(LIST MUST BE AT LEAST $F BYTES LONG) 


000108 




BCC 


SINFEND 






NO PUT CURRENT TIME INSTEAD. 


A A A 1 An 

000109 




LDY 


#$B 






MOVE IN THE NEXT GROUP OF BYTES 


000110 


SETINF3 


LDX 


INFTABL, Y 








000111 




BMI 


SINFENDl 








000112 




LDA 


(C . FILIST) , Y 








000113 




STA 


DFIL, X 








000114 




INY 










000115 




CPY 


C. FILSTLN 






SATISFACTION YET? 


A A A T T 

000116 




BNE 


SETINF3 






NOPE, KEEP EM PUMPIN' 


000117 


SINFEND 1 


JMP 


DREVISE 1 








000118 














000119 


BKBITFLG 


DS 


1 






FOR TURNING OFF BACKUP BIT 


000120 














000121 














000122 


INFTABL 


DFB 


D.ATTR,D.FILID,D 


AUXID, D.AUXID+1 


A A A T AO 

000123 




DFB 


D.STOR+1+$80,D.EOF, 


D.E0F+l,D.E0F+2 ; (D.STOR=0 THUS D.STOR+1 WAS NECESSARY) 


000124 




DFB 


$80, D. USAGE, D.USAGE+1 


D.MODDT ; (THE $80 IS FOR THE FOURTH BYTE OF EOF) 


A A A T AC 

000125 




DFB 


D.M0DDT+1,D.M0DTM,D.M0DTM+1,$FF ; TABLE ALWAYS ENDS IN $FF 


A A A T A 

000126 




PAGE 










000127 














000128 


RENAME 


JSR 


LOOKFILE 






LOOK FOR SOURCE (ORIGINAL) FILE. 


A n A 1 on 
000129 




BCC 


RNAMEO 






BRANCH IF FOUND. 


000130 




CMP 


#BADPATH 






TRYING TO RENAME A VOLUME? 


000131 




BNE 


RNAMERR 






NO, RETURN OTHER ERROR. 


A A A T OA 

000132 




JSR 


RENPATH 






SYNTAX NEW NAME. 


A A A T "DO 

000133 




BCS 


RNAMERR 








A A A T O yi 

000134 




LDA 


WRKPATH 






FIND OUT IF ONLY ROOTNAME FOR NEW NAME 


A A A 1 O C 

000135 




CMP 


PATHNML 








A A A 1 O 

000136 




BNE 


RNBADPTH 






NOT SINGLE NAME, RETURN ERROR! 


000137 




LDY 


tVCBSTAT 






TEST FOR OPEN FILES BEFORE CHANGING 


000138 




LDA 


(VCBPTR) , Y 








000139 




BPL 


RNAMEVOL 






BRANCH IF VOLUME NOT BUSY 


000140 




LDA 


#FILBUSY 








000141 


SINFOERR 


EQU 


* 








000142 




RTS 








(CARRY IS SET) 


A A A T /I O 

000143 


RNAMEVOL 


LDY 


#0 






GET NEWNAME'S LENGTH. 


A A A T A A 

000144 




LDA 


(WRKPATH) , Y 








000145 




TAY 










000146 




ORA 


#$F0 






(ROOT FILE STORAGE TYPE) 


000147 




JSR 


MVROTNAM 






UPDATE ROOT DIRECTORY. 


000148 




BCS 


RNAMERR 








000149 




LDY 


#0 








000150 




LDA 


(WRKPATH) , Y 






UPDATE VCB ALSO. 


000151 




TAY 










000152 


RNMEVOL 


LDA 


(WRKPATH) , Y 








000153 




STA 


(VCBPTR) , Y 








000154 




DEY 










000155 




BPL 


RNMEVOL 








000156 




CLC 
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000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 



RNJMEO 



RNAMEl 
SAMOWNR 



RNAME3 



JSR 

BCS 

LDY 

LDA 

TAY 

LDA 

CMP 

BNE 

DEY 

BPL 

JSR 

BCS 

LDA 

SEC 

RTS 

PAGE 

CMP 

BNE 

LDX 

LDA 

STA 

DEX 

BPL 

JSR 

BCS 

JSR 

BCS 

JSR 

LDA 

BCS 

LDA 

AND 

BNE 

LDA 

SEC 

RTS 

LDX 
LDA 
CMP 
BEQ 
LDA 
SEC 
RTS 

DEX 
BPL 
JSR 
BCS 

TYA 

BEQ 

DEY 

LDA 

STA 

DEY 

BNE 

LDA 

AND 

TAX 

ORA 

STA 

CPX 

BNE 

PAGE 

LDA 

STA 

LDA 

STA 

JSR 

BCS 

LDY 

LDA 

TAY 

ORA 

JSR 

BCS 

JMP 



RENPATH 
RNAMERR 
#0 

(PATHNML) , Y 

(PATHNML) ,Y 
(VCBPTR) , Y 
RNBADPTH 

TSTSMROT 
LOOKFILE 
TSTFNFl 
#DUPERR 



tFNFERR 
RNAMERR 
#2 

D.DEV,X 
NPATHDEV, X 

SVENEWID 

SETPATH 

RNAMERR 

FINDFILE 

RNAMERR 

TSTOPEN 

#FILBUSY 

RNAMERR 

DFIL+D.ATTR 

IRENAMEN 

RNAMEl 

#ACCSERR 



#2 

D.DEV,X 
NPATHDEV, X 
RNAME2 
#BADPATH 



SAMOWNR 
RENPATH 
RNAMERR 



(WRKPATH) ,Y 
DFIL+D.STOR, Y 

RNAME3 

DFIL+D.STOR 

#$F0 

(WRKPATH) , Y 
DFIL+D.STOR 
#DIRTYP*16 
RNAMDONE 

DFIL+D.FRST 

BLOKNML 

DFIL+D.FRST+1 

BLOKNMH 
RDGBUF 
RNAMERR 
#0 

(WRKPATH) , Y 

#HEDTYP*16 
MVROTNAM 
RNAMERR 
DREVISEl 



SET UP AND SYNTAX NEW NAME. 

VERIFY THAT BOTH NAMES HAVE SAME ROOT. 



COMPARE NEWNAME'S ROOT NAME WITH 

OLD NAME'S VOLUME NAME. 

RETURN 'BADPATH' IF NOT SAME VOLUME. 

(TEST SAME 'ROT') 
TEST FOR DUPLICATE FILE NAME. 
BRANCH IF ERROR TO TEST FOR FILE NOT FOUND. 
TELL USER THAT NEW NAME ALREADY EXISTS. 



WAS IT A VALID FILE NOT FOUND? 
NO, RETURN OTHER ERROR CODE. 

NOW MOVE NEW NAME'S OWNERSHIP (DIRECTORY HEADER) I.D. 

THIS CONSISTS OF THE UNIT NUMBER, 

AND THE ADDRESS OF THE DIRECTORY THE FILE 

WASN'T FOUND IN. LOGIC BY NEGATION... 

; NOW SYNTAX THE PATHNAME OF THE FILE TO BE CHANGED. 

; GET ALL THE INFO ON THIS ONE. 

; DON'T ALLOW RENAME TO OCCUR IF FILE IS IN USE. 
; ANTICIPATE ERROR 

; TEST BIT THAT SAYS IT'S OK TO RENAME 

; BRANCH IF IT'S ALRIGHT TO RENAME. 
; OTHERWISE REPORT ILLEGAL ACCESS. 



NOW TEST TO SEE IF NEW PATHNAME FITS IN THE 
SAME DIRECTORY FILE. 



TELL USER THAT PATHNAMES INCOMPATABLE . 



; TEST ALL THREE BYTES. 

WELL... SINCE BOTH NAMES WOULD GO INTO THE 

DIRECTORY, RE-SYNTAX THE NEW NAME TO GET LOCAL NAME ADDRESS. 
(Y CONTAINS THE LOCAL NAME LENGTH+1) 

REPORT ERROR IF LENGTH INFO NOT IMMEDIATELY AVAILABLE. 
(REMOVE THE +1) 

MOVE LOCAL NAME TO DIR ENTRY WORKSPACE. 



PRESERVE FILE STORAGE TYPE. 
STRIP OFF OLD NAME LENGTH. 



ADD IN NEW NAME'S LENGTH 



THAT FILE MUST BE CHANGED ALSO. 
BRANCH IF NOT DIRECTORY TYPE. 



READ IN FIRST (HEADER) BLOCK OF SUB DIRECTORY 



REPORT ERRORS 

CHANGE THE HEADER'S NAME TO MATCH THE OWNER'S NEW NAME. 
GET LOCAL NAME LENGTH AGAIN 

ASSUME IT'S A HEADER. 



END BY UPDATING ALL PATH DIRECTORIES 
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000238 


MVROTNAM 


STA 


GBUF+4 




000239 


MVHEDNAM 


LDA 


(WRKPATH) , Y 




000240 




STA 


GBUF+4 , Y 




000241 




DEY 






000242 




BNE 


MVHEDNAM 




000243 




JMP 


WRTGBUF 


WRITE CHANGED HEADER BLOCK. 


000244 










000245 










000246 


REN PATH 


LDA 


C . NWPATH 


GET ADDRESS TO NEW PATHNAME. 


000247 




STA 


TPATH 




000248 




LDA 


C . NWPATH+1 


SET UP FOR SYNTAXING ROUTINE (SYNPATH) . 


000249 




STA 


TPATH+1 




000250 




LDA 


SSNWPATH 


(MOVE BYTE FOR SISTER PAGE, TOO.) 


000251 




STA 


SISTPATH 




000252 




JMP 


SYNPATH 


GO SYNTAX IT. (RETURNS LAST LOCAL NAME LENGTH IN 


0UU253 










000254 










000255 


DEALBLK 


LDY 


#0 


BEGIN AT THE BEGINNING. 


000256 


DALBLKl 


STY 


SAPTR 


SAVE CURRENT INDEX . 


000257 




LDA 


GBUF, Y 


GET ADDRESS (LOW) OF BLOCK TO BE DEALLOCATED. 


000258 




CMP 


GBUF+$100, Y 


TEST FOR NUL BLOCK. 


000259 




BNE 


DALBLK2 


BRANCH IF NOT NUL. 


000260 




CMP 


#0 




000261 




BEQ 


DALBLK3 


SKIP IT IF NUL. 


000262 


DALBLK2 


LDX 


GBUF+$100, Y 


GET THE REST OF THE BLOCK ADDRESS. 


000263 




JSR 


DEALLOC 


FREE IT UP ON VOLUME BIT MAP. 


000264 




BOS 


DALBLKERR 


RETURN ANY ERROR. 


000265 




LDY 


SAPTR 


GET INDEX TO SAPLING LEVEL INDEX BLOCK AGAIN. 


000266 


DALBLK3 


INY 




POINT AT NEXT BLOCK ADDRESS. 


000267 




BNE 


DALBLKl 


BRANCH IF MORE TO DEALLOCATE (OR TEST) . 


000268 




CLC 




INDICATE NO ERROR. 


000269 


DALBLKERR 


RTS 






000270 










000271 










000272 




PAGE 






000273 










000274 


DESTROY 


JSR 


FINDFILE 


LOOK FOR FILE TO BE WIPED OUT. 


000275 




BCS 


DESTERR 


PASS BACK ANY ERROR. 


000276 




JSR 


TSTOPEN 


IS THIS FILE OPEN? 


000277 




LDA 


TOTENT 




000278 




BEQ 


DSTROYl 


BRANCH IF FILE NOT OPEN. 


000279 




LDA 


#FILBUSY 




A A A O O A 

0002bO 




SEC 




INFORM USER THAT FILE CAN'T BE DESTORYED AT THIS 


000281 




RTS 






000282 










000283 


DSTROYl 


LDA 


#0 


FORCE PROPER FREE COUNT IN VOLUME . 


000284 




STA 


REQL 


(NO DISK ACCESS OCCURS IF ALREADY PROPER) 


000285 




STA 


REQH 




000286 




JSR 


TSFRBLK 




000287 




BCC 


DSTR0Y2 




000288 




CMP 


tOVRERR 


WAS IT JUST A FULL DISK? 


A A A O A 

000289 




SEC 






000290 




BNE 


DESTERR 


NOPE, REPORT ERROR. 


000291 










000292 


DSTR0Y2 


LDA 


DFIL+D .ATTR 


MAKE SURE IT'S OK TO DESTROY THIS FILE. 


000293 




AND 


#DSTROYEN 




000294 




BNE 


DSTR0Y3 


BRANCH IF OK. 


000295 




LDA 


#ACCSERR 


TELL USER IT'S NOT KOSHER. 


000296 




JSR 


SYSERR 


(RETURNS TO CALLER OF DESTORY) 


000297 










A A A O AO 

0002 98 


DSTR0Y3 


JSR 


TWRPROTl 


BEFORE GOING THRU DEALLOCATION, 


0002 99 




BCS 


DESTERR 


TEST FOR WRITE PROTECTED HARDWARE. 


000300 




LDA 


DFIL+D . STOR 


FIND OUT WHICH STORAGE TYPE. 


000301 




AND 


#$F0 


STRIP OFF NAME LENGTH. 


000302 




CMP 


#TRETYP+1*$10 


IS IT A SEED, SAPLING, OR TREE? 


000303 




BCC 


DSTREE 


BRANCH IF IT IS. 


000304 




JMP 


DSTDIR 


OTHERWISE TEST FOR DIRECTORY DESTROY. 


000305 










000306 


DSTREE 


JSR 


GTTINDX 


GET A BIT MAP BUFFER AND TEMPORARY INDEX BUFFER. 


000307 




BCS 


DESTERR 




000308 




LDA 


DFIL+D . STOR 


GET STORAGE TYPE AGAIN 


000309 




AND 


#$F0 




000310 




CMP 


#TRETYP*S10 


IS THIS A TREE (FULL 2 -LEVEL ) ? 


000311 




BNE 


DSTSAP 


NO, TEST FOR SAPLING. 


000312 




JSR 


RDFRST 


READ IN ROOT INDEX FOR THIS FILE. 


000313 




BCC 


DSTRE2 


BRANCH IF ALL IS WELL. 


000314 


DESTERR 


RTS 




OTHERWISE RETURN ERROR. 


000315 


* 








000316 


DSTSAP 


CMP 


#SAPTYP*$10 


IS IT A SAPLING 


000317 




BNE 


DSTLAST 


NO, JUST DEALLOCATE FIRST (AND ONLY) BLOCK. 


000318 




JSR 


ZTMPIDX 


CLEAR OUT TEMPORARY INDEX BUFFER. 



» Apple /// Computer » SOS 1.3 Source Code Listing » 56 of 255 




000319 




LDA 


DFIL+D . FRST 


; MAKE THIS SAP LOOK LIKE A TREE. . . 


000320 




LDY 


#0 


; THIS IS DONE BY PLACING THE FIRST BLOCK ADDRESS 


000321 




STA 


(TINDX) , Y 


; IN THE TEMP (TOP) INDEX BUFFER AS 


000322 




INC 


TINDX+1 




000323 




LDA 


DFIL+D . FRST+1 


; A SUB INDEX WOULD APPEAR. 


000324 




STA 


(TINDX) , Y 




000325 




DEC 


TINDX+1 




000326 


DSTRE2 


LDY 


#0 


; BEGIN SCAN OF TOP LEVEL INDEX AT ZERO. 


000327 


DSTNXT 


STY 


TREPTR 


; SAVE POINTER TO TREE LEVEL. 


000328 




LDA 


(TINDX) , Y 


; GET BLOCK ADDRESS OF A SUB INDEX BLOCK 


000329 




INC 


TINDX+1 


; (TEST FOR NUL BLOCK) 


000330 




CMP 


(TINDX) , Y 




000331 




BNE 


DSTRE3 


; BRANCH IF WE'VE GOT AN BLOCK TO DEALLOCATE. 


000332 




CMP 


#0 


; IS ENTIRE ADDRESS ZERO? 


000333 




BEQ 


DSTRE4 


; YES, DO NEXT. (CARRY SET) 


000334 


DSTRE3 


CLC 




; INDICATE THERE IS A BLOCK OF INDEXES TO FREE UP 


000335 




STA 


BLOKNML 




000336 




LDA 


(TINDX) , Y 


; GET HI ADDRESS TOO. 


000337 




STA 


BLOKNMH 




000338 


DSTRE4 


DEC 


TINDX+1 


; (RESTORE PROPER ADDRESS FOR BUFFER) 


000339 




BCS 


DSTNXT 1 


; BRANCH IF NO SUB INDEX. 


A A O /I A 

000340 




JSR 


RDGBUF 


; USE GENERAL BUFFER FOR SUB INDEX BUFFER. 


000341 




BCS 


DESTERR 




000342 




JSR 


DEALBLK 


; GO FREE UP BLOCKS IN SUB INDEX 


000343 




BCS 


DESTERR 




000344 




LDY 


TREPTR 


; AND FREE UP SUB INDEX BLOCK TOO. 


000345 




INC 


TINDX+1 




000346 




LDA 


(TINDX) , Y 




000347 




TAX 






000348 




DEC 


TINDX+1 




000349 




LDA 


(TINDX) , Y 




000350 




JSR 


DEALLOC 




000351 




BCS 


DESTERR 




000352 




LDY 


TREPTR 




000353 


DSTNXT 1 


I NY 




; HAVE ALL SUB INDEXES BEEN LOCATED? 


000354 




BNE 


DSTNXT 


; NO, DO NEXT . . . 


000355 


DSTLAST 


LDA 


DFIL+D . FRST 


; DEALLOCATE FIRST BLCOK OF FILE. 


000356 




LDX 


DFIL+D . FRST+1 




000357 




JSR 


DEALLOC 




000358 




BCS 


DESTERR 




000359 




LDA 


#0 


; UPDATE DIRECTORY TO FREE ENTRY SPACE . 


000360 




STA 


DFIL+D . STOR 




000361 




CMP 


H . FCNT 


; FILE ENTRY WRAP? 


000362 




BNE 


DSTl 


; BRANCH IF NO CARRY ADJUSTMENT 


000363 




DEC 


H . FCNT+1 


; TAKE CARRY FROM HIGH BYTE OF FILE ENTRIES 


000364 


DSTl 


DEC 


H . FCNT 


; MARK HEADER WITH ONE LESS FILE 


000365 




LDX 


BMTAB 


; UPDATE (LAST) BITMAP. 


A A A O ^ z' 

000366 




JSR 


BMAPUP 




000367 




BCS 


DESTERR 




000368 




LDY 


#VCBTFRE 




A A A O ^ A 

000369 




LDA 


DFIL+D .USAGE 




000370 




ADC 


(VCBPTR) , Y 




000371 




STA 


(VCBPTR) , Y 


; UPDATE CURRENT FREE BLOCK COUNT . 


000372 




I NY 






000373 




LDA 


DFIL+D .USAGE+1 




000374 




ADC 


(VCBPTR) , Y 




000375 




STA 


(VCBPTR) , Y 




000376 




LDA 


#0 


; FORCE RESCAN FROM FIRST BITMAP 


000377 




LDY 


#VCBCMAP 




000378 




STA 


(VCBPTR) , Y 




000379 




JMP 


DREVISE 


; UPDATE DIRECTORY LAST . . . 


000380 










000381 




PAGE 






000382 










000383 


DSTDIR 


CMP 


#DIRTYP*16 


; IS THIS A DIRECTORY FILE? 


000384 




BEQ 


DSDIRl 


; YES , PROCEED . 


000385 




LDA 


#CPTERR 


; FILE IS NOT COMPATABLE. 


000386 




JSR 


SYSERR 


; GIVE UP. 


000387 










000388 


DSDIRl 


JSR 


FNDBMAP 


; MAKE SURE A BUFFER IS AVAILABLE FOR THE BITMAP. 


000389 




BCS 


DSDIRERR 




A n A ri n 




LDA 


DFIL+D . FRST 


; READ IN FIRST BLOCK OF DIRECTORY INTO GBUF . 


000391 




STA 


BLOKNML 




000392 




LDA 


DFIL+D. FRST+1 




000393 




STA 


BLOKNMH 




000394 




JSR 


RDGBUF 




000395 




BCS 


DSDIRERR 




000396 




LDA 


GBUF+HCENT+4 


; FIND OUT IF ANY FILES EXIST ON THIS DIRECTORY. 


000397 




BNE 


DSDIRACC 


; BRANCH IF ANY EXIST. 


000398 




LDA 


GBUF+HCENT+5 




000399 




BEQ 


DSDIR2 
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000400 


DSDIRACC 




LDA 


#ACCSERR 




000401 






JSR 


SYSERR 




000402 












00040i 


DSDIR2 




LDA 


GBUF+2 


GET FORWARD LINK. 


000404 






CMP 


GBUF+3 


TEST FOR NO LINK. 


000405 






BNE 


DSDIR3 




000406 






CMP 


#0 




000407 






BEQ 


DSTLAST 


IF NO LINK, THEN FINISHED. 


000408 


DSDIR3 




LDX 


GBUF+3 




000409 






JSR 


DEALLOC 


FREE THIS BLOCK. 


000410 






BCS 


DSDIRERR 




000411 






LDA 


GBUF+2 




A A n yi T o 
00U41Z 






STA 


BLOKNML 




A A A yi T ^ 

00041J 






LDA 


GBUF+3 




000414 






STA 


BLOKNMH 


READ IN LINKED BLOCK. 


A A A /I T C 

00U41o 






JSR 


RDGBUF 




000416 






BCC 


DSDIR2 


LOOP UNTIL ALL ARE FREED. 


000417 


DSDIRERR 




RTS 






A A A /I T O 

00U4io 












000419 












AAA A OA 

000420 






PAGE 






000421 


WORKS PC 




EQU 






AAA A AO 

000422 


V. STATUS 




DS 


1 


VOLUME STATUS, INCLUDES 'ACTIVE' IN BIT 7 


A A A yi A O 

00042 J 


H . CREDT 




DS 


2 


DIRECTORY CREATION DATE 


000424 






DS 


2 


DIRECTORY CREATION TIME 


000425 






DS 


1 


VERSION UNDER WHICH THIS DIRECTORY WAS CREATED 


000426 






DS 


1 


EARLIEST VERSION THAT IT'S COMPATABLE WITH 


A A A yl o ^ 

0UU4z / 


H . ATTR 




DS 


1 


ATTRIBUTES {PROTECT BIT, ETC. ) 


000428 


H . ENTLN 




DS 


1 


LENGTH OF EACH ENTRY IN THIS DIRECTORY. 


A A A yi A A 

000429 


H . MAXENT 




DS 


1 


MAXIMUM NUMBER OF ENTRIES PER BLOCK 


A A A yi "D A 

0004 oU 


H . FCNT 




DS 


2 


CURRENT NUMBER OF FILES IN THIS DIRECTORY 


AAA A O T 

0004il 






DS 


2 


ADDRESS OF FIRST ALLOCATION BIT MAP 


AAA A O O 

0004 J2 






DS 


2 


TOTAL NUMBER OF BLOCKS ON THIS UNIT 


A A A yi o o 

0004iJ 






DS 


5 


(FOR FUTURE EXPANSION) 


000434 












000435 


D . DEV 




DS 


1 


DEVICE NUMBER OF THIS DIRECTORY ENTRY 


000436 


D . HEAD 




DS 


2 


ADDRESS OF <SUB> DIRECTORY HEADER 


000437 


D . ENTBLK 




DS 


2 


ADDRESS OF BLOCK WHICH CONTAINS THIS ENTRY 


A A A yi O A 

000438 


D . ENTNUM 




DS 


1 


ENTRY NUMBER WITHIN BLOCK. 


A A A yi O A 

000439 


DFIL 




EQU 






000440 


D . STOR 




EQU 


*-DFIL 


STORAGE TYPE * 16 + FILE NAME LENGTH 


000441 






DS 


1 




000442 


; *-DFIL 


; FILE 


NAME 






000443 






DS 


15 




000444 


D . FILID 




EQU 


*-DFIL 


USER'S IDENTIFICATION BYTE 


000445 






DS 


1 




000446 


D . FRST 




EQU 


*-DFIL 


FIRST BLOCK OF FILE 


000447 






DS 


2 




000448 


D . USAGE 




EQU 


*-DFIL 


NUMBER OF BLOCKS CURRENTLY ALLOCATED TO THIS FILE 


000449 






DS 


2 




A A A yi C A 

000450 


D.EOF 




EQU 


*-DFIL 


CURRENT END OF FILE MARKER 


000451 






DS 


3 




000452 


D . CREDT 




EQU 


*-DFIL 


DATE OF FILE'S CREATION 


000453 






DS 


2 




000454 


; *-DFIL 


; TIME 


OF FILE' 


S CREATION 




000455 






DS 


2 




A A A yi c 

000456 


; EQU *- 


DFIL ; 


SOS VERSION THAT CREATED THIS FILE 


000457 






DS 


1 




000458 


D . COMP 




EQU 


*-DFIL 


BACKWARD VERSION COMPATABILTY 


000459 






DS 


1 




A A A yi r f\ 

0004 60 


D . ATTR 




EQU 


*-DFIL 


'PROTECT', READ/WRITE 'ENABLE' ETC. 


0004 61 






DS 


1 




0004 52 


D . AUXID 




EQU 


*-DFIL 


USER AUXILLARY IDENTIFACATION 


0004 53 






DS 


2 




0004 64 


D . MODDT 




EQU 


*-DFIL 


FILE'S LAST MODIFICATION DATE 


A A A yi ^ c 

000465 






DS 


2 




A A A yi ^ 

000466 


D . MODTM 




EQU 


*-DFIL 


FILE'S LAST MODIFICATION TIME 


000467 






DS 


2 




A A A yi ^ A 

000468 


D . DHDR 




EQU 


*-DFIL 


HEADER BLOCK ADDRESS OF FILE'S DIRECTORY 


A A A yi /'A 

0004 69 






DS 


2 




000470 












A A A yl "7 1 
UU U4 / i 


CMDADR 




DS 


2 




000472 


SCRTCH 




DS 


13 


SCRATCH AREA FOR ALLOCATION ADDRESS CONVERSION 


000473 


OLDEOF 




DS 


3 


TEMP USED IN W/R 


000474 


OLDMARK 




DS 


3 


USED BY 'RDPOSN' AND 'WRITE' 


000475 


SCRHIGH 




EQU 


<SCRTCH 


AND DEVICE NUMBERS FROM BOB'S CODE. 


000476 


* 










000477 






CHN 


SWAPOUT/IN,4,2 




000478 












000479 










000480 


* END OF 


APPLE 


/// SOS 1 


.3 SOURCE CODE FILE: DESTROY 
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000481 




000482 

End of File — Lines: 482 Characters: 20557 
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FILE: "SOS. DEVMGR. SRC. TEXT" 



000001 

000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: DEVMGR. SRC 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



SBTL 
REL 

INCLUDE 

ORG 

EQU 

MSB 
REP 

COPYRIGHT (C 



"SOS 1.1 DEVICE MANAGER" 

SOSORG, 6,1,254 
ORGDMGR 



REP 



OFF 

100 

APPLE COMPUTER INC. 1980 
ALL RIGHTS RESERVED 
100 



DEVICE MANAGER (VERSION =1.10 ) 
(DATE = 8/04/81) 

THIS MODULE IS RESPONSIBLE FOR CALLING THE CORRECT DEVICE 
DRIVER WHEN A D.READ. . . D. INIT SYSTEM CALL IS MADE. 
(NOTE: D. OPEN, D. CLOSE AND D.INIT ARE ONLY CALLABLE FROM 
INSIDE THE OPERATING SYSTEM) . D.INFO AND GET.DNUM CALLS 
ARE HANDLED INSIDE THIS MODULE. REPEAT. 10 BYPASSES THIS MODULE. 



E.REG 
B.REG 



REP 

ENTRY 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 

EXTRN 

EQU 
EQU 
PAGE 
REP 



100 

DMGR 

MAX . DNUM 

SDT.SIZE 

SDT.DIBL 

SDT.DIBH 

SDT.ADRL 

SDT.ADRH 

SDT.BANK 

SDT.UNIT 

BLKD.SIZE 

BLKDLST 

SYSERR 

SERR 

NODNAME 

BADDNUM 

SYSDEATH 

BADSYSCALL 

SXPAGE 

$FFDF 
$FFEF 

100 



; ENVIRONMENT REGISTER 
; BANK REGISTER 



* SYSTEM DEVICE TABLE (SDT) 
* 

* CONTAINS THE ADDRESS OF EACH DRIVER'S DIB (SDT. DIB), THE 

* ADDRESS OF EACH DRIVER'S ENTRY POINT (SDT. ADR), AND THE 

* UNIT # OF EACH DRIVER (SDT.UNIT). THE TABLE IS INDEXED 

* BY DEVICE NUMBER. ENTRY IS RESERVED FOR FUTURE USE. 



SDT.SIZE 
* 

MAX . DNUM 
SDT.DIBL 
SDT.DIBH 

SDT.ADRL 
SDT.ADRH 



REP 

EQU 

DS 
DS 
DS 

DS 
DS 

DS 

DS 
REP 



100 
25 

1 

SDT.SIZE 
SDT.SIZE 

SDT.SIZE 
SDT.SIZE 

SDT.SIZE 

SDT.SIZE 

100 



;MAX DEV NUMBER IN SYSTEM+1 
;ADR OF DEVICE INFORMATION BLOCK 



;ADR OF ENTRY POINT 



;BANK # OF DEVICE 
;UNIT # OF DRIVER 
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000077 


* BLOCK DEVICE LIST TABLE 






000078 








000079 


BLKD.SIZE EQU 


13 




OOOOoO 


BLKDLST DFB 


$00 




000081 


DS 


BLKD.SIZE-1 




000082 


PAGE 






A A A A O O 


REP 


100 




000084 


* 






000085 


* DATA DECLARATIONS 






000086 


* 






000087 


REP 


100 




000088 


* 






000089 


D.TPARMX EQU 


$co 




000090 


REQCODE EQU 


D.TPARMX 




000091 


* 






000092 


* D.READ/WRITE/CTRL/STATUS/OPEN/CLOSE/INIT/REPEAT 


PARMS 


000093 








000094 


DNUM EQU 


D.TPARMX+1 




000095 








000096 


* D.INFO PARMS 






000097 


* 






000098 


I . DNUM EQU 


D.TPARMX+1 




000099 


I . DNAME EQU 


D.TPARMX+2 




000100 


I.DLIST EQU 


D.TPARMX+4 




000101 


I . LENGTH EQU 


D.TPARMX+6 




000102 


* 






000103 


* GET.DEV.NUM PARMS 






000104 








000105 


G . DNAME EQU 


D.TPARMX+1 




000106 


G.DNUM EQU 


D.TPARMX+3 




000107 


* 






000108 


* SDT ENTRY (=DIB) FIELDS 






000109 


* 






000110 


DIB . SLOT EQU 


$11 


DIB'S DEVICE SLOT FIELD 


000111 


DIB . DTYPE EQU 


$13 


DIB'S DEVICE TYPE FIELD 


000112 


* 






000113 


SDTP EQU 


D.TPARMX+$10 


PTR TO CURRENT SDT ENTRY 


000114 


PAGE 






000115 


REP 


100 




000116 


* 






000117 


* DEVICE MANAGER (MAIN ENTRY POINT) 




000118 


* 






A A A 1 T A 


REP 


100 




000120 


DMGR EQU 


* 




000121 


* 






000122 


LDA 


REQCODE 




000123 


CMP 


#4 




000124 


BCC 


DRIVER 


D. READ/WRITE/CTRL/STATUS 


000125 


BNE 


DM000 




000126 


JMP 


GET . DNUM 


GET . DEV . NUM CALL 


000127 


DM000 CMP 


#5 




000128 


BEQ 


D . INFO 


D . INFO CALL 


000129 


CMP 


#$A 




000130 


BCC 


DRIVER 


D .OPEN/CLOSE/ INIT 


000131 


LDA 


#BADSYSCALL 


ELSE FATAL ERROR 


000132 


JSR 


SYSDEATH 


EXIT 


000133 


PAGE 






000134 


REP 


100 




000135 


* D.READ/WRITE/CTRL/STATUS/OPEN/CLOSE/INIT CALLS 




000136 


* "JSR" TO DEVICE DRIVER 






000137 


REP 


100 




000138 


DRIVER EQU 


* 




000139 


* 






000140 


LDX 


DNUM 


GET DNUM SYSCALL PARM 


000141 


BEQ 


DM005 


WITHIN BOUNDS? 


000142 


CPX 


MAX . DNUM 




000143 


BCC 


DM010 




000144 


* 






000145 


* DNUM TOO LARGE 






000146 


* 






000147 


DM005 LDA 


#>BADDNUM 


INVALID DEVICE NUMBER 


000148 


JSR 


SYSERR 


ERROR EXIT 


000149 


* 






000150 


* MAP DEV# TO UNIT# 






000151 


* 






000152 


DM010 LDA 


SDT. UNIT, X 




000153 


STA 


DNUM 




000154 


* 






000155 


* "JSR" TO DEVICE DRIVER 


VIA JMP TABLE 




000156 


* 






000157 


LDA 


B . REG 


STACK B.REG 
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000158 




FHA 








000159 




LDA 


#<DM.RTN-1 




STACK RETURN ADDRESS 


000160 




FHA 








000161 




LDA 


#>DM.RTN-1 






000162 




FHA 








000163 












000164 




LDA 


SDT . BANK, X 




SELECT RAM BANK 


000165 




STA 


B.REG 






000166 




LDA 


SDT . ADRH, X 




STACK DRIVER ENTRY POINT ADDRESS 


000167 




PHA 








000168 




LDA 


SDT . ADRL, X 






000169 




FHA 








000170 












000171 




LDA 


E.REG 




SWITCH IN I/O BANK 


000172 




ORA 


#$40 






000173 




STA 


E.REG 






000174 




RTS 






AND, "JSR" TO DEVICE DRIVER 


000175 












000176 


DM . RTN 


LDA 


E . REG 




SWITCH OUT I/O BANK 


000177 




AND 


#$BF 






000178 




STA 


E.REG 






000179 




FLA 






RESTORE B.REG 


000180 




STA 


B.REG 






000181 




SEC 








000182 




LDA 


SERR 




RETRIEVE ERROR CODE 


000183 




BNE 


DM017 




ENSURE CARRY CLEARED IF NO ERROR 


000184 




CLC 








000185 


DM017 


RTS 






AND, EXIT TO CALLER 


000186 




FAGE 








000187 




REF 


100 






000188 


* D.INFO(IN.DNUM, OUT 


DNAME, OUT.DEVLIST, 


IN. LENGTH) SYSTEM CALL 


000189 




REF 


100 






000190 


D.INFO 


EQU 


* 






000191 


* 










000192 




LDX 


I.DNUM 




GET DNUM FARM 


000193 




BEQ 


DM020 




WITHIN BOUNDS? 


000194 




CPX 


MAX.DNUM 






000195 




BCC 


DM030 






000196 


DM020 


LDA 


#>BADDNUM 




NO, DNUM TOO LARGE 


000197 




JSR 


SYSERR 




ERROR EXIT 


000198 


* 










000199 


* MOVE FARMS 


FM SDT ENTRY (DEV INFO BLOCK) 


TO CALLER'S 


000200 


* FARM LIST 










000201 












000202 


DM030 


JSR 


SETUP. SDT 




SET UP ZPAGE FTR TO SDT ENTRY 


000203 


* 










000204 


* GUFUT DNAME 


FARM 








000205 


* 










000206 




LDA 


(SDTF) , Y 




LOAD FARM'S BYTE COUNT 


000207 




TAY 








000208 


DM040 


LDA 


(SDTF) , Y 






000209 




STA 


(I. DNAME) ,Y 






000210 




DEY 








000211 




BPL 


DM040 






000212 












000213 


* OUTFUT DEVINFO FARM 


(SLOT, UNIT, DEVID, FRODCODE) 




000214 


* 










000215 




LDA 


#DIB.SLOT 






000216 




CLC 






ADVANCE SDTF TO 2ND FARM IN SDT 


000217 




ADC 


SDTF 






000210 




STA 


SDTF 






000219 




BCC 


DM045 






000220 




INC 


SDTF+1 






000221 


DM045 


LDY 


I . LENGTH 




LOAD BYTE COUNT 


000222 




BEQ 


DM. EXIT 




IF THEN DONE 


000223 




DEY 








000224 




CFY 


#$B 






000225 




BCC 


DM050 






000226 




LDY 


#$A 






000227 


DM050 


LDA 


(SDTF) , Y 






000228 




STA 


(I.DLIST) ,Y 






000229 




DEY 








000230 




BFL 


DM050 






000231 


* 










000232 


DM. EXIT 


CLC 








000233 




RTS 






NORMAL EXIT 


000234 




FAGE 








000235 




REF 


100 






000236 


* GET.DEV.NUM 


(IN. DNAME; OUT.DNUM) SYSTEM CALL 




000237 




REF 


100 






000238 


* 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 



GET . DNUM EQU 
LDX 

DM070 JSR 
* 

LDA 
CMP 
BNE 

* 

TAY 

DM080 LDA 
CMP 
BCC 
AND 

DM090 CMP 
BNE 
DEY 
BNE 

* 

TXA 
LDY 
STA 
LDY 

LDA 
CLC 
RTS 

NXTSDT INX 
CPX 
BCC 

* 

LDA 
JSR 
PAGE 
REP 

* SETUP. SDT (IN. X=DNUM, 
REP 

SETUP. SDT EQU 
LDA 
STA 
LDA 

STA 
LDA 
STA 
LDY 
STY 
RTS 



#1 



SETUP. SDT 



ZZEND 
ZZLEN 



LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



(SDTP) , Y 
(G.DNAME 
NXTSDT 



) ,Y 



(G.DNAME) , Y 
#$60 
DMD90 
#$DF 

(SDTP) , Y 
NXTSDT 

DM080 



#0 

(G.DNUM) , Y 
#DIB.DTYPE 
(SDTP) , Y 



MAX. DNUM 
DM070 

#>NODNAME 

SYSERR 

100 

OUT. SDTP, B.REG, Y=0) 
100 
* 

SDT.DIBL,X 
SDTP 

SDT.DIBH,X 

SDTP+1 
SDT. BANK, X 
B.REG 

#0 

SXPAGE+SDTP+1 



ON 
* 

ZZEND-ZZORG 
ZZLEN-LENDMGR 
2, "SOSORG 



; SETUP PTR TO 1ST SDT ENTRY 

; SET UP ZPAGE PTR TO SDT ENTRY 

; COMPARE DNAME LENGTHS 

; LENGTHS MATCH, NOW COMPARE CHARS 

; UPSHIFT 



; CHARS MATCH 

; OUTPUT DEV NUM PARM 

; SET "N" FLAG IN STATUS REG. 

; N=l (BLOCK DEVICE) N=0 (CHAR DEVICE) 

; NORMAL EXIT 

; LAST SDT ENTRY? 



ERROR, DNAME NOT FOUND IN SDT 
RETURN TO CALLER 



"UNCHANGED" 



SET UP ZPAGE PTR TO SDT ENTRY 
(POINTS TO DNAME FIELD) 



FILE IS INCORRECT FOR DEVMGR" 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: DEVMGR. SRC 

************************************************************************* 



End of File 



Lines: 298 Characters: 7991 
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FILE : " SOS . DISK3 . DATA . SRC . TEXT " 





************************************************************************* 


000002 


* APPLE /// SOS 1.3 SOURCE 








000003 










************************* 


000004 


* ASSEMBLER: APPLE ] 


6502 


ASSEMBLER 




rriMPTTTTP TnnT TfTT 


000005 












000006 


PAGE 










A A A A A 

000007 


* GENERAL DATA : 










A A A A A n 

000008 












000009 


PREVUNIT DS 




1 




; irKXUK UWX i AL-i^tjiDotjJJ \ c UK KtjiriljAi ) 


000010 


PREVCMD DS 




1 




; irKXUK \ r UK KtiiriljAi ) 


000011 












000012 


ESAVE DS 




1 






000013 


VBLSAVE DS 




1 






000014 


INITFLAG DFB 











000015 


DO 




REVOROM 






A A A A T 

000016 


ROMREV DS 




1 




f <J — X\IL VKJ f ^ U — KCi V ± 


000017 


FIN 










000018 












A A A A T A 

ooooiy 


* MOTOR-UP TIMES PER 


COMMAND 






A A A A O A 

000020 


T50MS EQU 




$02 




, urao r UK rauiN 1 xi'uiijri 


000021 


T200MS EQU 




$08 




, Z U U mb r UK NUW i Irlcirl 


000022 


TISEC EQU 




$27 




, _L OIj'^ r UK FlUi*l 1 li irLjIl 


000023 












000024 


MTIMES DFB 




T200MS, TISEC, T50MS 


• PF an TaTP TTF QFMQF 


A A A A O IT 

000025 


* 










A A A A O 

000026 


REP 




40 






000027 


* DRIVE TABLES: 










A A A A O n 

000028 


* 










A A A A O A 

000029 


DRIVESEL DS 




4 




• ■Wri'M7FPri TT7 CT?TTT'r'T'TT'n 
, iNULN ZiHiKU Xr O IIj Xilli U llli U 


000030 


* 










000031 


UPTIME DS 




4 




(iXlUlUK r\UiN J. XrUL OXiNUtlj OJ.rtX\lCjJJ 


000032 


DRVTRACK DS 




4 




^UUKKEiiNX nSlii\U irUOXXXUiN 


000033 


PAGE 










A A A A O A 

000034 


DO 




REVOROM 




^ ULNXiI Xr U IT JrUKX XLNo XX . 


A A A A O C 

000035 


* JUMP TABLE TO MONITOR ROUTINES. 






000036 


* THIS TABLE FILLED 


IN BY 


'INIT' . 






A A A A O T 

000037 


* 










A A A A t) r> 

000038 


JMPTAB EQU 




* 






000039 


RDADR JMP 










000040 


READ JMP 










000041 


WRITE JMP 




* 






000042 


SEEK JMP 




* 






A A A A /I 

000043 


MSWAIT JMP 




* 






000044 


PRENIB JMP 




* 






000045 


POSTNIB JMP 




* 






000046 


* 










000047 


REVO EQU 




* 




^ r\lLi V U rt.XJUt\ILoOllJO 


000048 


JMP 




$F1BD 




• p ri 7\ r\p 


000049 


JMP 




$F148 






000050 


JMP 




$F219 






000051 


JMP 




$F400 






A A A A C O 

000052 


JMP 




$F456 




r r'loWrt.X X 


A A A A C 

000053 


JMP 




$F2C6 




r JrrsJljiN XI3 


000054 


JMP 




$F311 




r JrUO XLNXJ3 


A A A A C IT 

000055 


VSIZE EQU 




*-REVO 




•TTiRTF c:T7F 


A A A A r 

000056 


* 










000057 


REVl EQU 




* 




, r\iij V X rtjjurvcjooiijo 


000058 


JMP 




$F1B9 




. PPi A FiP 


000059 


JMP 




$F148 






000060 


JMP 




$F216 




• TaTP T TF 
f vvr\X 1 III 


A A A A ^ T 

000061 


JMP 




$F400 




• SEEK 


A A A A CO 

UUUUdz 


JMP 




$F456 




; MSWAIT 


000063 


JMP 




$F2C4 




; PRENIB 


000064 


JMP 




$F30F 




; POSTNIB 


000065 


ELSE 








;FOR REVl WE USE EQUATES 


000066 


RDADR EQU 




$F1B9 




; RDADR 


000067 


READ EQU 




$F148 




;READ 


000068 


WRITE EQU 




$F216 




; WRITE 


000069 


SEEK EQU 




$F400 




; SEEK 


000070 


MSWAIT EQU 




$F456 




; MSWAIT 


000071 


PRENIB EQU 




$F2C4 




; PRENIB 


000072 


POSTNIB EQU 




$F30F 




; POSTNIB 


000073 


FIN 










000074 












000075 


ZZEND EQU 










000076 


ZZLEN EQU 




*-ZZORG 
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000077 IFNE ZZLEN-LENDISK3 

000078 FAIL 2,"S0S0RG FILE IS INCORRECT FOR DISK3" 

000079 FIN 
000080 

000081 ******************************************************* 

000082 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 . DATA. SRC 

000083 ************************************************************************* 

000084 

End of File — Lines: 84 Characters: 2753 
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FILE: "SOS. DISK3. MAIN. SRC. TEXT" 





*********************************************************** 


000002 


* APPLE 


/// 


SOS 


1.3 


cii^npr'T? rrinir ftt f • 

OL-'UrxL.Ili L.UJJII1 r . 


DISK3 


MAIN . SRC 


000003 








* * A * * 


***************** 




Ir***************************** 


000004 


* ASSEMBLER: 


APPLE ] 




from APPLE COMPUTER TOOLKIT 


000005 
















000006 








PAGE 








A A A A A 

000007 


* MAIN 


ENTRY 


POINT : 








000008 


* 














000009 


* DISABLE NMI/RESET 




SPACE 




A A A A T A 

000010 
















A A A A T T 

000011 


MAIN 






EQU 


* 






000012 








LDA 






; SAVE CALLER ' S 


000013 








AND 






;DROP SCREEN BIT 


000014 








STA 


IliOrt Vlli 




; ENVIRONMENT 


000015 








DO 


1 —TEST 




;N0 RESETLOCK FOR TESTING 


A A A A T 

000016 








LDA 






;GET EREG AGAIN 


000017 








AND 






; DISABLE NMI/RESET 


000018 








FIN 








A A A A T A 

ooooiy 








ORA 






;ENABLE ROM/IO SPACE 


A A A A O A 

000020 








STA 


E.REG 






000021 


* 














000022 








LDA 


■MnQr''DnT t 

LM W x\l,J i-i J-i 




; DISABLE SMOOTHSCROLL 


000023 


* 














000024 








PHP 






;IF ALREADY SEI'D, THEN WE 


000025 








PLA 






; STAY THAT WAY. . . 


A A A A O 

000026 








ROR 








000027 








ROR 








000028 








ROR 








A A A A O A 

000029 








ROR 








000030 








STA 


± tv^iyiti-o IS. 




; ' I ' BIT INTO BIT7 


000031 


* 














000032 


* MAKE 


SURE 


WE 


HAVE 








000033 


* 














A A A A O A 

000034 








LDA 


LI , i^Ui il irilN U 




;GET IT 


A A A A O IT 

000035 








BMI 






; =>WOW ! 


000036 








BEQ 






;=>ZERO IS A READ 


A A A A O T 

000037 








CMP 


#1 n 




;OFF THE END? 


000038 








BCS 






; — >YES 


000039 








CMP 


if y 




; RE PEAT? 


000040 








BNE 


CMDl 




; — >NOPE 


000041 


* 














000042 


* REPEAT. SIMPLY GET 


PRIOR COMMAND: 






A A A A A O 

000043 


* 














000044 








LDA 


PREVUNIT 




;IS THIS REPEAT FOR 


000045 








CMP 


D . UNITNUM 




; SAME UNIT? 


A A A A A 

000046 








BNE 


BADOP 




;=>N0? ILLEGAL! 


000047 








LDA 


PREVCMD 




;YES, SET COMMAND 


000048 








BEQ 


RPTOK 




;— >REPEAT ' ED READ IS OK 


000049 








CMP 


#1 




;IF NOT, IS IT REPEAT 'ED WRITE? 


000050 








BNE 


BADOP 




;=>CAN'T REPEAT OTHER COMMANDS 


000051 


RPTOK 






EQU 


* 






A A A A C O 

000052 








STA 


D . COMMAND 




; SAME AS BEFORE 


A A A A C 

000053 








CMP 


#0 




; READ? 


000054 








BEQ 


lOSETUP 




; =>YES 


A A A A C IT 

000055 


* NOW REPEAT 


GOES LIKE OTHERS: 






000056 


* 














000057 
















000058 


CMDl 






EQU 


* 






000059 








CMP 


#1 




; WRITE? 


000060 








BNE 


CMD2 




; ->NOPE 


000061 








JMP 


lOSETUP 




; =>YES 


000062 


CMD2 






EQU 


* 






000063 








CMP 


#2 




; STATUS? 


000064 








BNE 


CMD3 




;=>NOT STATUS 


000065 








LDA 


D . STATCODE 




;IS IT 'SENSE'? 


000066 








BEQ 


GOSTAT 




;=>YES 


000067 








LDA 


#XCTLCODE 




/ILLEGAL CODE 


000068 








JMP 


EXIT 






000069 


GOSTAT 






EQU 


* 






000070 








JMP 


DRVSETUP 




; =>YES 


000071 


* 














000072 


CMD3 






EQU 


* 






000073 








CMP 


#8 




; INIT? 


000074 








BNE 


BADOP 




; =>NOPE 


000075 








JMP 


INIT 




;=>YES, DO INIT 


000076 


* 
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000077 


BADOP 


EQU * 




000078 




LDA #XBADOP /ILLEGAL COMMAND 


000079 




JMP EXIT ;BACK TO YOU 


000080 


* 






000081 


BADCMD 


EQU * 




000082 




LDA #XREQCODE 


INVALID COMMAND 






JMP EXIT ;BACK TO YOU 


000084 




PAGE 




000085 


* SETUP WHAT 


WE HAVE TO BEFORE 




000086 


* PERFORMING THE I/O OPERATION: 




000087 








000088 


lOSETUP 


EQU * 




000089 




LDA D.BLOCK+1 


VALIDATE BLOCKNUM 


000090 




BEQ CHKBYTE 


=> IF <256, IT'S OK 


000091 




CMP #2 


IS IT <512? 


A A A A A 

000092 




BCS BADBLOCK 


=>BAD BOY! 


000093 




LDA D . BLOCK 


YES, CHECK LO HALF 


000094 




CMP #280-256 


FOR RANGE 


000095 




BCC CHKBYTE 


=>IT'S OK 


000096 


BADBLOCK 


EQU * 




000097 




LDA #XBLKNUM 


BAD BLOCK NUMBER 


000098 




JMP EXIT /RETURN BAD NEWS 


000099 


* 






000100 


CHKBYTE 


EQU * 




A A A 1 AT 

000101 




LDA D. BYTES 


GET LO COUNT 


000102 




BNE BADCOUNT 


=>ERR, NOT INTEGRAL BLOCK (S 


000103 




LDA D.BYTES+1 


GET HI COUNT 


000104 




LSR A 


MAKE BLOCK COUNT 


000105 




BCS BADCOUNT 


=>BAD IF HALF-BLOCK COUNT 


000106 




STA BLKCOUNT 


SAVE COUNT OF BLOCKS 


000107 


* 






000108 


* DOES REQUESTED BYTECOUNT CAUSE US 




000109 


* TO RUN OFF END OF DISK? 




000110 


* 






000111 




LDA BLKCOUNT 


NO. ADD STARTBLOCK 


000112 




CLC 


AND BLKCOUNT AND SEE 


000113 




ADC D . BLOCK 


IF WE'RE TOO BIG 


000114 




LDX D.BLOCK+1 


DID IT START OUT > 255? 


000115 




BNE BLKG255 


=>YES 


000116 




BCC DRVSETUP 


=>DEFINITELY < 256 


000117 




BCS CHKLO 


=>IF CARRY, THEN >256 


000118 


BLKG255 


EQU * 




000119 




BCS BADCOUNT ;>255+CARRY IS NOW >511 


000120 


CHKLO 


EQU * 




000121 




CMP #280-256+1 ;281..511 ? 


000122 




BCC DRVSETUP 


=>N0, WE ARE OK 


000123 


BADCOUNT 


EQU * 




000124 




LDA #XBYTECNT /ILLEGAL BYTECOUNT 


000125 




JMP EXIT ; SORRY... 


000126 




PAGE 




000127 


* 






A A A 1 O O 

uuoizy 


* SELECT THE 


APPROPRIATE DRIVE: 




000129 


* 






000130 


DRVSETUP 


EQU * 




000131 




LDA D . COMMAND 


SAVE THIS COMMAND 


000132 




STA PREVCMD 


AND DEVICE FOR 


000133 




LDA D.UNITNUM 


SUBSEQUENT 


000134 




STA PREVUNIT 


'REPEAT' CALL 


000135 




LDA E.REG 


DOWNSHIFT TO 


000136 




ORA #$80 


IMHZ FOR REMAINDER 


000137 




STA E.REG 


OF DRIVER EXECUTION 


000138 




JSR UNITSEL 


SELECT & START IT 


000139 


* 






000140 


* SEE IF THE 


MOTOR STARTED. IF NOT, 




000141 


* THEN IT'S 


EITHER DISKSWITCH OR NODRIVE. 




000142 


* 






000143 




JSR CHKDRV /MOTOR RUNNING? 


000144 




BNE DOIO 


=>YES, GREAT. 


000145 


* 






000146 


* IF WE GET A MOTOR WHEN WE MOVE 




000147 


* THE HEAD, 


THEN IT'S DISKSWITCH. 




000148 


* 






000149 




LDX D.UNITNUM 


FORCE HEAD MOTION 


000150 




INC DRVTRACK,X 


EVEN IF ALREADY ON ZERO 


000151 




INC DRVTRACK,X 


GIVE HIM A FIRM KNOCKER 


000152 




LDA #0 


SEEK TO TRACK ZERO 


000153 




JSR MYSEEK 


FOR BFM DIR READ 


000154 




JSR CHKDRV 


RUNNING NOW? 


000155 




BNE DSWITCH 


=>YES, A SWITCHEROO 


000156 




LDA #0 




000157 




LDY D.UNITNUM ; FORGET THAT THIS 
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000158 


STA 


DRIVESEL, Y 


; DRIVE WAS 'SELECTED' 


000159 


LDA 


#XNODRIVE 


;N0, A MISSING DRIVE! 


000160 


JMP 


EXIT 




000161 


* 






000162 


DSWITCH EQU 


* 




000163 


LDA 


#XDISKSW 


;USER PULLED A FAST ONE 


000164 


JMP 


EXIT 


; BUT HE CAN ' T FOOL US . 


000165 


PAGE 






000166 


* PREPARE TO DO THE OPERATION: 




0001 67 








000168 


DOIO EQU 






000169 


LDA 


D . BUFL 


;COPY USER BUFFER 


000170 


STA 


BUFTEMP 


; AND BLOCK NUMBER 


000171 


LDA 


D . BUFH 


; TO OUR WORKSPACE 


000172 


STA 


BUFTEMP+1 




000173 


LDA 






000174 


STA 






000175 


LDA 


D . BLOCK 




000176 


STA 


BLKTEMP 




000177 


LDA 


D . BLOCK+1 




000178 


STA 


BLKTEMP+1 




000179 








000180 


* IF CALLER GAVE US A 


COUNT OF ZERO BYTES, 




000181 


* THEN WE ' RE ALL DONE 






OUOloz 








000183 


LDA 


D . COMMAND 


;IS IT STATUS? 


000184 


CMP 


#2 


;IF SO, THEN BYTECOUNT 


000185 


BNE 


D0I02 


; IS MEANINGLESS 


000186 


JMP 


STATUS 




000187 


DO I 02 EQU 






OUUloo 


LDY 


BLKCOUNT 


; BLKS=0? 


000189 


BEQ 


READOK 


;=>YES, YOU GET GOOD RETURN 


000190 


CMP 


#0 


;READ COMMAND? 


000191 


BEQ 


READREQ 


; =>YES 


000192 


JMP 


WRITEREQ 




000193 


PAGE 






000194 


REP 


40 




000195 


* — READ — 






000196 


REP 


40 




000197 


READREQ EQU 


* 




000198 


LDA 


#0 


; CLEAR COUNT OF 


000199 


LDY 


#0 




000200 


STA 


(D . BYTRD) , Y 


; BYTES READ 


000201 


INY 






000202 


STA 


( D . BYTRD) , Y 




000203 


READREQ2 EQU 






000204 


JSR 


BLK2SECT 


; COMPUTE TRK/ SECTOR THIS BLOCK 


000205 








000206 


JSR 


SECTORIO 


;READ IT PLEASE 


000207 


BCS 


READERR 


;=>WE LOSE. 


000208 


INC 


SECTOR 


;BUMP TO NEXT 


000209 


INC 


SECTOR 


; LOGICAL SECTOR 


000210 


INC 


BUF+1 


;BUMP SECTOR BUFFER 


000211 


JSR 


SECTORIO 


;READ IT TOO 


000212 


BCS 


READERR 


;=>WE LOSE. 


000213 


LDY 


#1 




000214 


LDA 


(D. BYTRD) , Y 


;BUMP COUNT OF 


000215 


CLC 






000216 


ADC 


#2 




000217 


STA 


(D. BYTRD) , Y 


; BYTES READ 


000218 


* 






000219 


* MORE BLOCKS TO GO? 






000220 


* 






000221 


JSR 


MOREBLKS 


; SETUP FOR NEXT BLOCK 


000222 


BNE 


READREQ2 


;->MORE TO READ. . . 


000223 


READOK EQU 


* 




000224 


LDA 


#0 


;GOOD RETURN 


000225 


JMP 


EXIT 


;TELL HAPPY USER 


000226 


* 






000227 


READERR EQU 


* 




000228 


JMP 


EXIT 


; RETURN ERROR CODE 


000229 


CHN 


DISK3.WRT.SRC 




000230 








000231 


********************************************************* 


000232 


* END OF APPLE /// SOS 


1.3 SOURCE CODE FILE: 


DISK3. MAIN. SRC 


000233 


************************************************************************* 


000234 









End of File — Lines: 234 Characters: 7883 
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FILE: "SOS. DISK3.SI0. SRC. TEXT" 



000001 


************************************************************ 




* appT F / / / c^nc: 1 T QnnRrF 

r\n r Lj£j III OwO ± . O OWUrN.L'i-i 




. SRC 


000003 


************************** 


********************* 


************************** 


000004 




acqpMRT FP -Fr-z-im ZiPPT F 




000005 








000006 








000007 


REP 


40 




A A A A A n 

000008 








000009 


* TTTTTJr'TTnM • PTTTin nP TaTP ttf 






A A A A T A 

000010 




M'n'MTTMF 




A A A A T T 

000011 




Urs. (iil^— U U ) 




000012 


* • PUPPY QTTT TT 
• L-nKrv I o III 1 -L r 


FPPPiP ( ar"— FPPrTiPiF ^ 




000013 


* • <:;T7T?'C'Tfl7A T T" ATT 

. O-titiiS-WAl i rtijJ_i 






000014 








000015 




40 




A A A A T 

000016 


* 






000017 




* 




000018 




JtP PFr'ZiT 


^ O El X U rr X nCj 


A A A A T A 

ooooiy 




1 1 / QFF RFT nw^ 




A A A A O A 

OOOOzO 




PFP ST r''KIT 


• PFPIiT TPTFC; 


000021 


wnp 




• pan m\TF rvtf 


000022 


STA 


E1908 


• zi— PFn MnQT RF wnw— 7FPn i i i 


000023 








000024 


* 






A A A A IT 

000025 






• ziPF TaTF nw— TPar*!;"? 


A A A A O 

000026 


LDA 


TRACK 




000027 




riP'\7TP7ir''Pf V 
XJr\V xt\rt.i^rs.^ i 




A A A A A n 

000028 


BEQ 




. •s.TTT T7i^'Di~''C"T' c'c'Tn:;' r niTT 7\v 

} —> Lc oU^ c UKfjili X otjililS. « UtjXjiil 


000029 


* 






000030 


WAX i Diljr UrCtj oitjirlrXLNla: 






000031 


* 






000032 


LDA 


O i-ii-ir\yyrt X X 


. qp'pTf riFT aV TJFFFlFn? 


000033 




rTlClFFPf 
kjjUoiiiiiirv 


• — ^MATaT 

^ — ^l\rt.lAI ... 


A A A A O A 

000034 


LDA 


ffU 




A A A A O IT 

000035 




QFF'KTiJTi TT 


• r'T FSP THF FT Sr* 


000036 


LDA 






A A A A O T 

000037 




TVPinTTMF 
rtXJU X xrxcj 


• TRF THTaT TTPTTMF / c; V 


000038 


TAY 




• d * 9 R FlFT av 


000039 


QTT'P'KTlTI'T FrilT 
OEjCjr'.JJILJj i-i\^U 






000040 




ff u 




000041 


TQP 


MCVnTTV TT 
LXlO InlAX ± 




000042 








A A A A A O 

000043 


BNE 






000044 


* 






000045 


* ISSUE THE SEEK: 






A A A A A /" 

000046 


* 






000047 


GOSEEK EQU 






000048 


LDA 


TRACK 




000049 


JSR 


MYSEEK 


• — % aMF) vrin crHaT t ftmp 


000050 


* 






000051 


SOUGHT EQU 


* 




A A A A C O 

000052 


LDA 


IRQMASK 


• QFT TPD Ma 'CTIP 


A A A A C 

000053 


STA 


IMASK 


• rriPF phttttuf q 


000054 


LDA 


#R.IRQ 


• QFTTTP TPn PFTPTFQ 


A A A A C IT 

000055 


STA 


INTRTRY 




000056 


LDA 


#R.IOERR 


• aMn FPPnp pftp tfc: 


000057 


STA 


RETRYCNT 




000058 


* 






000059 


* DELAY FOR ANY REMAINING MOTOR-UP TIME: 




000060 


* 






A A A A ^ 1 

000061 


MDELAY EQU 


* 




A A A A CO 

UUUUdz 


LDA 


MONTIMEH 


;ANY TIME REMAINING? 


000063 


BPL 


FINDIT 


;=>N0, WE'RE UP TO SPEED. 


000064 


LDA 


#1 


;YES, SO BUMP A SLICE OF 


000065 


JSR 


ADDTIME 


; UPTIME WHILE WE WAIT 


000066 


LDA 


#0 




000067 


JSR 


MS WAIT 




000068 


JMP 


MDELAY 


;=>G0 TILL ENOUGH 


000069 


* 






000070 


* FIND THE DESIRED SECTOR: 






000071 


* 






000072 


* NOTE: FINDSECT RETURNS WITH 




000073 


* IRQ INHIBITED! 






000074 


* 






000075 


FINDIT EQU 


* 




000076 


PHP 




/INHIBIT IRQ WHILE 
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000077 


SEI 






; MESSING WITH VBL FLAGS 


000078 


LDA 




E . lER 


; DISABLE VBL IRQ 


000079 


AND 




#$18 


; DURING SECTOR I/O 


000080 


STA 




E . lER 




000081 


ORA 




#$80 


; FOR ' SET ' LATER 


000082 


STA 




VBLSAVE 




000083 


PLP 






; RESTORE IRQ STATUS 


000084 


JSR 




FINDSECT 


; FIND ME PLEASE 


000085 


BCS 




TRYRECAL 


;->N0? RECAL OR GIVE UP! 


000086 


LDX 




#$60 


; SET UP SLOT FOR CORE RTNS 


000087 


LDA 




D . COMMAND 


; WHAT ' S YOUR PLEASURE ? 


000088 


BNE 




SIOWRITE 


;=>WRITE 


000089 










000090 


REP 




40 




000091 


* READ A SECTOR: 








A ^ A 

000092 










000093 


JSR 




READ 


;READ THAT SECTOR 


000094 


JSR 




FIXIRQ 


; ENABLE IRQ IF OK 


000095 


LDA 




VBLSAVE 


; ALLOW VBL DURING 


000096 


STA 




E . lER 


; POSTNIB 


000097 


BCS 




BADIO 


;=>I/0 ERR OR IRQ 


000098 


LDA 




E .REG 


; SET 2MHZ FOR POSTNIB 


000099 


AND 




#$7F 




000100 


STA 




E .REG 




000101 


JSR 




POSTNIB 


; POSTNIB/CHECKSUM 


000102 


BCS 




I ORE TRY 


;^>I/0 ERR:BAD CHKSUM 


000103 


JMP 




SIOGOOD 


;^>G00D READ 


000104 










000105 


REP 




40 




000106 


* WRITE A SECTOR: 








000107 










000108 


SIOWRITE EQU 








000109 


JSR 




WRITE 


;WRITE THE DATA 


A A A 1 T A 

000110 


JSR 




FIXIRQ 


; RE -ENABLE IRQ IF OK 


000111 


LDA 




VBLSAVE 


; RESTORE 


000112 


STA 




E . lER 


; VBL IRQ 


000113 


BCC 




SIOGOOD 


;^>GOOD WRITE 


000114 


BVC 




SIOWPROT 


; ^>WRITE PROTECTED 


000115 










000116 


REP 




40 




000117 


* IT DIDN'T GO WELL 


FOR 


US: 




000118 










000119 


BADIO EQU 








000120 


DO 




1 -REVO ROM 


;FOR REVl 


000121 


BVS 




FINDIT 


;^>IRQ. JUST RETRY IT. 


000122 


ELSE 






;FOR REVO 


000123 










000124 


* THE REVl ROM TAKES 


CARE OF THE 




000125 


* IRQ RETRY COUNT, 


BUT 


REVO DOESN'T: 




000126 










000127 


BVC 




lORETRY 


;=>I/0 ERROR. RETRY IT 


000128 


LDA 




ROMREV 


;WHICH ROM? 


000129 


BNE 




FINDIT 


;^>REV1 . HE DOES IT . 


000130 


LDA 




INTRTRY 


;REVO. OUT OF RETRIES? 


000131 


BPL 




BADI02 


; =>N0 . 


000132 


STA 




IMASK 


;SET HI BIT FOR IRQ MASK 


000133 


BADI02 EQU 




* 




000134 


DEC 




INTRTRY 


;ONE LESS RETRY 


000135 


JMP 




FINDIT 


;=>RETRY AFTER IRQ 


000136 


FIN 








A A A 1 O ^ 

000137 


* 








000138 


* RETRY AFTER AN I/O ERROR: 




000139 


* 








000140 


lORETRY EQU 








000141 


DEC 




RETRYCNT 


;ANY RETRIES LEFT? 


000142 


BNE 




FINDIT 


;=>YEAH, RETRY AFTER ERROR 


000143 


* 








000144 


* RETRIES EXHAUSTED. 


RECALIBRATE : 




000145 


* 








A A A 1 AT 

000146 


TRYRECAL EQU 








000147 


LDA 




VBLSAVE 


; ALLOW VBL IF RECAL 


A A A 1 /I O 

0UU14o 


STA 




E. lER 


; OR UNRECOVERABLE ERROR 


000149 


DEC 




RECALCNT 


;HAVE WE RECALIBRATED YET? 


000150 


BMI 




SIOERR 


;->YUP. WE'RE DEAD. 


000151 


JSR 




RECAL 


;N0, TRY OUR LUCK 


000152 


LDY 




D . UNITNUM 


;ARE WE ON-TRACK? 


000153 


LDA 




TRACK 




000154 


CMP 




DRVTRACK, Y 




000155 


BNE 




NOTSAME 




000156 


JMP 




SOUGHT 


;=>IF SO, FORGET RESEEK 


000157 


NOTSAME EQU 




* 
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000158 






JMP 




GOSEEK 


; TRY AGAIN ON TARGET TRACK 


000159 














000160 






REP 




40 




000161 


SIOERR 




EQU 








000162 






LDA 




tXIOERROR 


; RETURN CODE 


000163 






SEC 






; INDICATE HARD ERROR 


000164 






BCS 




SIORET 




000165 


SIOWPROT 




EQU 








000166 






LDA 




tXNOWRITE 


/RETURN CODE 


000167 






SEC 






; INDICATE HARD ERROR 


000168 






BCS 




SIORET 




000169 


SIOGOOD 




EQU 




* 




000170 






LDA 




#0 




000171 






CLC 






; INDICATE GOOD COMPLETION 


000172 


SIORET 




LDX 




#0 


; SAY OK TO MOUSE 


00017 J 






STX 




E1908 


; WITH THIS GLOBAL $1908 


000174 






RTS 








000175 






PAGE 








000176 






REP 




40 




000177 


* NAME : 


FINDSECT 








000178 


* FUNCTION: 


LOCATE A 


DESIRED SECTOR 




000179 


* INPUT : 


IBTRK, IBSECT SETUP 




000180 


* RETURNS : 


CARRY CLEAR 


IF OK, 




000181 




CARRY SET 


IF ERROR. 




A A A 1 OA 


* DESTROYS : 


ALL REGISTERS S 'TEMP' 




000183 


* NOTE : 


RETURNS WITH IRQ DISABLED IF NO ERROR! 


000184 






REP 




40 




000185 














000186 


FINDSECT 




EQU 




* 




000187 






LDA 




#R. FIND* 16 


; SETUP NUMBER OF REVS 


000188 






STA 




RETRYADR 


; ALLOWED TO FIND SECTOR 


000189 






LSR 




TEMP 


; COMPUTE LATENCY FIRST TIME 


000190 


FINDSEC2 




EQU 




* 




000191 






LDX 




#$60 


;FAKE SLOT FOR CORE ROUTINES 


000192 






JSR 




RDADR 


;GET NEXT ADDRESS FIELD 


000193 






BCS 




RDADERR 


;— >UGH! AN ERROR! 


000194 














000195 


* MAKE SURE 


WE' 


RE ON 


THE CORRECT TRACK: 




000196 


* 












000197 






LDA 




TRACK 


; IS IT 


000198 






CMP 




CSSTV+2 


; CORRECT TRACK? 


000199 






BNE 




FINDERR 


;=>N0? ! ? IT ' S USELESS ! 


000200 






LDA 




SECTOR 


;IS IT 


000201 






CMP 




CSSTV+1 


; DESIRED SECTOR? 


000202 






BEQ 




FINDGOOD 


;— >YEAH. GOT IT! 


000203 














000204 


* COMPUTE LATENCY. EACH 


TWO-SECTOR 




000205 


* DISTANCE 


IS 


25 MS 


OF 


UPTIME . 




000206 


* 












000207 






LDA 




TEMP 


; LATENCY ALREADY COMPUTED? 


000208 






BMI 




RDADERR 


; =>YES . 


000209 






LDA 




SECTOR 


;HOW FAR AWAY IS OUR 


000210 






SEC 






; DESIRED SECTOR? 


000211 






ROR 




TEMP 


/PREVENT RECOMPUTATION 


000212 






SBC 




CSSTV+1 




000213 






AND 




#$0F 




000214 






LSR 




A 


;EACH 2 -SECTORS IS 25 MS 


000215 






JSR 




ADDTIME 




000216 


* 












000217 


* KEEP LOOKING 


TILL WE 


FIND IT: 




000218 


* 












000219 


RDADERR 




EQU 








000220 






JSR 




FIXIRQ 


;ENABLE IRQ IF APPROPRIATE 


000221 






DEC 




RETRYADR 


;ANY RETRIES LEFT? 


000222 






BEQ 




FINDERR 


;->N0, WE CAN'T FIND IT. 


000223 


* 












000224 


* COMPENSATE FOR A BUG 


IN RDADR: IF WE TRY 




000225 


* TO CALL 


RDADR AGAIN 


BEFORE THE DATA MARK 




000226 


* GOES BY, 


THEN RDADR 


WILL ACCIDENTALLY CALL 




A A A 1 O "7 


* THAT AN 


ERROR. WE 


CAN AVOID THIS 'FAKE' 




000228 


* ERROR BY 


DELAYING 


PAST THE DATA MARK. 




000229 






LDY 




#200 


;1 MS IS PLENTY 


000230 


ADRDELAY 




EQU 




* 




000231 






DEY 








000232 






BNE 




ADRDELAY 




000233 






JMP 




FINDSEC2 


;=>NOW TRY LOOKING AGAIN 


000234 


* 












000235 






REP 




40 




000236 


FINDGOOD 




EQU 








000237 






LDA 




#0 


; CLEAR VOLNUM OUT OF 


000238 






STA 




MONTIMEH 


; MOTORTIME! 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 



CLC 
RTS 

EQU 
JSR 
LDA 

STA 
SEC 
RTS 

CHN 



FIXIRQ 
#0 

MONTIMEH 



DISK3.USEL.SRC 



/INDICATE NO ERROR 



/ENABLE IRQ IF APPROPRIATE 
; CLEAR VOLNUM OUT OF 
; MOTORTIME! 
/INDICATE THE ERROR 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 . SIO. SRC 

************************************************************************* 



End of File 



Lines: 255 Characters; 8245 
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FILE: "SOS. DISK3. SRC. TEXT" 



A A A T 


************************************ 


A A A A n 


* a PPT IT / / / 

rtJrJrijili III 


SOS 1.3 SOURCE CODE FILE 


000003 








000004 




APPLE ] [ 


6502 ASSEMBLER 


000005 








000006 




SBTL 


'SOS 1.1 


A A A A A 

000007 


TEST 


EQU 





A A A A A n 

000008 




INCLUDE SOSORG, 6, 


000009 




DO 


TEST 


A A A A T A 

000010 




ORG 


$2000 


A A A A T T 

000011 




ELSE 




000012 




REL 




000013 




ORG 


0RGDISK3 


000014 




FIN 




000015 


ZZORG 


EQU 


* 


A A A A T f 

000016 




CHR 




000017 




MSB 


OFF 


000018 


* 






000019 




REP 


40 


000020 


* COPYRIGHT (C) APPLE COMPUTER IN 


000021 


* ALL RIGHTS 


RESERVED 


000022 




REP 


4 


000023 








000024 


REVO ROM 


EQU 





A A A A A IT 

000025 


* 






A A A A A 

000026 




DO 


1— TEST 


000027 




ENTRY 


DIBl 


A A A A A n 

000028 




ENTRY 


DIB2 


000029 




ENTRY 


DIB3 


000030 




ENTRY 


DIB4 


000031 




ENTRY 


SEEKDSK3 


000032 


* 






000033 




EXTRN 


SYSERR 


A A A A O A 

000034 


* 






A A A A "3 C 
OUOO J5 




EXTRN 


XREQCODE 


000036 




EXTRN 


XBADOP 


A A A A O T 

000037 




EXTRN 


XNODRIVE 


000038 




EXTRN 


XIOERROR 


000039 




EXTRN 


XNOWRITE 


000040 




EXTRN 


XBYTECNT 


000041 




EXTRN 


XBLKNUM 


000042 




EXTRN 


XDISKSW 


A A A A A O 

000043 




EXTRN 


XCTLCODE 


000044 


* 






000045 




EXTRN 


E1908 


A A A A A 

000046 


* TO SAY WE 


CANNOT BE 


INTERRUPTED 


000047 


* 






000048 




ELSE 




000049 


XREQCODE 


EQU 


$20 


000050 


XBADOP 


EQU 


$26 


000051 


XNODRIVE 


EQU 


$28 


A A A A C O 

000052 


XIOERROR 


EQU 


$27 


A A A A C 

000053 


XNOWRITE 


EQU 


$2B 


000054 


XBYTECNT 


EQU 


$2C 


000055 


XBLKNUM 


EQU 


$2D 


000056 


XDISKSW 


EQU 


$2E 


000057 


XCTLCODE 


EQU 


$21 


000058 




FIN 




000059 




PAGE 




000060 


* DISK /// CONTROLLER 


EQUATES : 


A A A A ^ 1 

000061 


* 






A A A A CO 


* MOTOR SELECT BITS: 


000063 


* 






000064 


* DRIVE 


INT EXTl EXT2 


000065 


* 






000066 


* .Dl 


1 X 


X 


000067 


* .D2 


X 


1 


000068 


* .D3 


X 1 





000069 


* .D4 


X 1 


1 


000070 


* 






000071 


MS . INT 


EQU 


$C0D4 


000072 


MD.INT 


EQU 


$C0D5 


000073 


* 






000074 


MS. EXT 1 


EQU 


$C0D3 


000075 


MS . EXT2 


EQU 


$C0D1 


000076 


MD.EXTl 


EQU 


$C0D2 



******** 



;FOR FUNNY-MODE TESTING 



;1=SUPP0RT REVO ROM 



; DIBl 
; DIB2 
;DIB3 
;DIB4 

;SEEK CURRENT DRIVE 



GLOBAL FLAG FOR MOUSE DRIVER 



/MOTOR SELECT: INTERNAL DRIVE 
; MOTOR DESELECT: INTERNAL DRIVE 

;MOTOR SELECT: EXTERNAL DRIVE 
; MOTOR SELECT: EXTERNAL DRIVE 
/MOTOR DESELECT: EXTERNAL DRIVE 
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UUUU / / 




EQU 




;MOiUK Uil.bililjtjL.i ; iliAiCiKINAlj UKlVilj 


UUUU to 










r\ r\ rx r\ n Ci 

UUUU /y 


IS . INT 


EQU 


$coea 


; I /O SELECT : INTERNAL DRIVE 


(-1 nn n Q n 
UUUUoU 


lb . JljAi 


EQU 




• T /f^ OTTTA'TI* T"VTIT-D"KT7V T TA'D TT 

;i/U btjijil.L.i : tjAitjKINAlj UKIVcj 


UUUUol 










UUUUol 


NOSCROLL 


EQU 


$C0D8 


; SMOOTHSCROLL OFF 


A A A A O O 

UUUUo O 










A A A A O A 


MOTOROFF 


EQU 


$C0E8 


;MOTOR (S) START POWEROFF T/0 


A A A A O C 

UUUUoo 


MOTORON 


EQU 


$C0E9 


; MOTOR ( S ) POWER ON 


A A A A O 

UUUUoD 


Q6L 


EQU 


SCO 8C 


; Q7L, Q6L— READ 


000087 


Q6H 


EQU 


SC08D 


;Q7L, Q6H— SENSE WPROT 


A A A A O O 

UUUUoo 


Q7L 


EQU 


$C08E 


; Q7H, Q6L=WRITE 


A A A A O A 

uuuuoy 


Q7H 


EQU 


$C08F 


; Q7H, Q6H=WRITE STORE 


A A A A A A 

uuuuyu 


* 








A A A A AT 

uuuuyi 


* OTHER EQUATES 








A A A A AO 

uu uu yz 


* 








A A A A A O 

uuuuy J 


E.REG 


EQU 


$FFDF 


; ENVIRONMENT REGISTER 


A A A A A yl 

uuuuy4 


E.IER 


EQU 


$FFEE 


; INTERRUPT ENABLE REGISTER 


A A A A A C 










A A A A A 

uuuuyb 


* RETRY COUNTERS: 






A A A A A"7 

uuuuy / 


* 








A A A A A O 

uuuuyo 


R. REGAL 


EQU 


1 


; MAX REC AL I BRATE S 


A A A A A A 

uuuuyy 


* R. REGAL MUST NOT BEGOME 


ZERO ! (MOUSE WILL BE 


LOCKED OUT) 


A A A T A A 

UOOlOO 


* SEE DISK3.SI0 


SRC LINE 


14 FOR DETAIL 




A A A 1 m 

UU Ul U i 


R. FIND 


EQU 


3 


, MAX K_h.Vb lO r IWU A bn.L.iUK 


000102 


R. lOERR 


EQU 


4 


;MAX RETRIES ON READ ERROR 


A A A 1 A Q 


R. IRQ 


EQU 


6 


;MAX IRQ ' S TOLERATED BEFORE SEI 


A A A 1 A yl 




PAGE 






000105 


* ZPAGE EQUATES 


FOR CORE 


ROUTINES : 




A A A T A 

UUUlUo 










A A A T A"7 

UUUlU / 




DSECT 






A A A T AO 

UUUlUo 




ORG 


$81 




A A A 1 A A 

uuuiuy 


IBSLOT 


DS 


1 


; SLOT=$ 6 FOR RTNS 


A A A 1 T A 

UUUllU 




DS 


7 


;N/A 


000111 




DS 


1 


; RDADR : CHECKSUM 


A A A 1 T A 

UUUllz 




DS 


1 


;N/A 


A A A 1 1 


IMASK 


DS 


1 


; BIT7 SET IF IRQ ALLOWED 


A A A T T A 

UUU114 


GURTRK 


DS 


1 


; SEEK : CURRENT TRACK 


000115 




DS 


2 


;N/A 


A A A T T r 

UUUIId 


INTRTRY 


DS 


1 


; READ : IRQ RETRY COUNT 


A A A T T 

UUUll / 




DS 


5 


;N/A 


A A A T •^ n 

UOOllo 




DS 


1 


; RDADR: 'MUST FIND' COUNT 


A A A 1 T A 

uuuiiy 




DS 


1 


; READ, WRITE : CHECKSUM 


A A A T A 

UUUlzU 


CSSTV 


DS 


4 


; RDADR : CKSUM, SEC, TRK, VOL 


A A A 1 '^1 

UU Ulz i 


MONTIMEL 


EQU 


CSSTV+2 


; MSWAIT : MOTOR-ON TIME 


A A A T O 

UU Ulzz 


MONTIMEH 


EQU 


MONTIMEL+1 




A A A T AO 

OUUlz J 


BUF 


DS 


2 


; PRENIB, POSTNIB : USER BUFFER 


A A A T A /I 

UUUlz4 




DS 


1 


; SEEK : PRIOR PHASE 


A A A T AC 

UUUlzo 


TRKN 


DS 


1 


; SEEK : TARGET TRACK 


A A A T A 

UUUlzo 


* 








A A A 1 A "7 

UUUlz / 


* LOGAL TEMPS: 








A A A 1 D 

UU Ulz o 


* 








A A A 1 AO 

UU uiz y 




ORG 


$D0 


;WE ' RE ALLOWED TO $FF 


A A A 1 OA 

UUUloU 


BLKTEMP 


DS 


2 


; LOCAL TEMP FOR BLKNUMBER 


A A A 1 O 1 

UUUIJI 


BUFTEMP 


DS 


2 


; LOCAL TEMP FOR BUFFER ADDRESS 


A A A T OA 

UUUl Jz 


TRAGK 


DS 


1 


; LOCAL TEMP FOR TRACK 


A A A T O O 
UUUU J 


SECTOR 


DS 


1 


; LOCAL TEMP FOR SECTOR 


A A A T OA 

UUUlo4 


RETRYADR 


DS 


1 


; LOCAL TEMP FOR SECTOR-FIND RETRIES 


A A A T "DC 

UUUloo 


RETRYCNT 


DS 


1 


; LOCAL TEMP FOR I/O RETRIES 


A A A T O /" 

UOOlib 


RECALCNT 


DS 


1 


; LOCAL TEMP FOR RECAL COUNT 


A A A 1 "5 "7 
UUUU / 


BLKCOUNT 


DS 


1 


, hi Li Kb KcjIJL) iU bAllbri niiCjOOUNi 


A A A 1 O O 

UUUUo 


SEEKWAIT 


DS 


1 


; <>0 IF SEEK DELAY NEEDED 


A A A 1 OA 

uuuuy 


IRQMASK 


DS 


1 


; ENTRY ' I ' BIT 


A A A T /I A 

UUU14U 


TEMP 


DS 


1 


; JUST A TEMP 


A A A T /II 

UUU14 i 




DEND 






A A A T yi A 

UUU14z 




PAGE 






A nm AO 
UUU14 J 


* DRIVER INTERFACE AREA: 






A A A T A A 

UUU144 


* 








A A A 1 /I C 

UUU145 




DSECT 






A A A T AC 
UU U i 4 D 




ORG 


$co 




A A A 1 /IT 

UUUi4 / 


D . COMMAND 


DS 


1 


; COMMAND CODE 


000148 


D.UNITNUM 


DS 


1 


;UNIT NUMBER 


oooi4y 


D . BUFL 


DS 


2 


; BUFFER ADDRESS 


000150 


D . BUFH 


EQU 


D.BUFL+1 




000151 


D.STATCODE 


EQU 


D . BUFL 


;DSTATUS CODE 


000152 


D.STATBUF 


EQU 


D . BUFH 


;^DSTATUS LIST 


000153 


D. BYTES 


DS 


2 


; BYTECOUNT 


000154 


D. BLOCK 


DS 


2 


; REQUESTED BLOCKNUM 


000155 


D.BYTRD 


DS 


2 


; BYTES READ (READ) 


000156 




DS 


6 


/SPARES (OK AS TEMPS) 


000157 




DEND 
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000158 




PAGE 








000159 


DIBl 


EQU 






;DIB FOR .Dl 


000160 




DW 


DIB2 




; FLINK 


000161 




DW 


MAIN 




; ENTRY POINT 


000162 




DFB 


3 




;NAME LENGTH 


000163 




ASC 


' . Dl 






000164 




DFB 


$80 




; DEVNUM: ACTIVE 


000165 




DFB 







; SLOT 


000166 




DFB 







;UNIT NUMBER 


000167 




DFB 


$E1 ,1,0 




; TYPE, SUB, FILLER 


000168 




DW 


280 




; BLOCKCOUNT 


000169 




DW 


1 




; MANUFACTURER= APPLE 


000170 




DW 


$1100 




;VERSI0N=1 . 1 


000171 












000172 


DIB2 


EQU 






; DIB FOR . D2 


000173 




DW 


DIB3 




; FLINK 


000174 




DW 


MAIN 




; ENTRY POINT 


000175 




DFB 


3 




; NAME LENGTH 


000176 




ASC 


' . D2 






000177 




DFB 


$80 




; DEVNUM: ACTIVE 


000178 




DFB 







; SLOT 


000179 




DFB 


1 




;UNIT NUMBER 


000180 




DFB 


$E1, 1, 




; TYPE, SUB, FILLER 


000181 




DW 


280 




; BLOCKCOUNT 


000182 




DW 


1 




; MANUFACTURER= APPLE 


000183 




DW 


$1100 




; VERSI0N=1 . 1 


000184 












000185 


DIB3 


EQU 






; DIB FOR . D3 


000186 




DW 


DIB4 




; FLINK 


000187 




DW 


MAIN 




; ENTRY POINT 


000188 




DFB 


3 




;NAME LENGTH 


000189 




ASC 


' .D3 






000190 




DFB 


$80 




; DEVNUM : ACTIVE 


000191 




DFB 







; SLOT 


000192 




DFB 


2 




;UNIT NUMBER 


000193 




DFB 


$E1 ,1,0 




;TYPE, SUB, FILLER 


000194 




DW 


280 




; BLOCKCOUNT 


000195 




DW 


1 




;MANUFACTURER^APPLE 


000196 




DW 


$1100 




; VERSI0N=1 . 1 


000197 












000198 


DIB4 


EQU 






; DIB FOR . D4 


000199 




DW 







;N0 FLINK 


000200 




DW 


MAIN 




; ENTRY POINT 


000201 




DFB 


3 




;NAME LENGTH 


000202 




ASC 


' . D4 






000203 




DFB 


$80 




; DEVNUM : ACTIVE 


000204 




DFB 







; SLOT 


000205 




DFB 


3 




;UNIT NUMBER 


000206 




DFB 


$E1, 1, 




; TYPE, SUB, FILLER 


000207 




DW 


280 




; BLOCKCOUNT 


000208 




DW 


1 




; MANUFACTURER=APPLE 


000209 




DW 


$1100 




;VERSI0N-1.1 


000210 




DW 


1 




; MANUFACTURER-APPLE 


000211 




DW 


$1100 




;VERSI0N-1.1 


000212 












000213 




CHN 


DISK3.MAIN. 


SRC 




000214 




INCLUDE 


SOSORG, 6,1, 


254 




000215 












000216 


********************************************************* 


000217 


* END 


OF APPLE /// SOS 1 


3 SOURCE CODE 


FILE: 


DISK3 . SRC 


000218 


************************************************************************* 


000219 












000220 












End of 


File — 


- Lines: 220 Characters: 7516 
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FILE : " SOS . DISK3 . SUBS . SRC . TEXT " 



A A A T 


************************************************************************* 


A A A A n 


* 


APPLE /// SOS 1.3 


30URCE 


CODE FILE: DISK3.SUBS 


SRC 


000003 












000004 


* 


ASSEMBLER: APPLE ] 


[ 6502 


ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 














000006 




PAGE 










A A A A A 

000007 




REP 






40 




A A A A A n 

000008 


* 


NA^E : CHKDRV 










000009 


* 


FUNCTION: CHECK IF MOTOR(S) RUNNING 




A A A A T A 

000010 




INPUT : NONE 










000011 


* 


RETURNS : 'BNE' IF 


RUNNING 




000012 




: 'BEQ' IF 


NOT 








000013 




DESTROYS: AC, X 










000014 




REP 






40 




000015 


* 


NOTES: DUE TO A FLOATING 


PIN, THERE 




A A A A T 

000016 


* 


COULD BE A GLITCH 


WHICH 


CAUSES THE 




000017 


* 


SHIFTER TO 'FLASH 


' ONTO 


THE BUS 




A A A A T n 

OOOOlo 


* 


INSTEAD OF ALWAYS 


BEING 


TRI STATED. 




A A A A T A 

ooooiy 


* 


THIS COULD CAUSE CHKDRV 


TO THINK 




A A A A O A 

OOOOzO 




THAT THE MOTOR IS 


SPINNING WHEN IT 




000021 




IS HOT. THUS WE WILL 


SAMPLE THE SHIFTER 




000022 




FOR 40 US AT 6-US 


INTERVALS. IF, AFTER 




000023 




THREE (3) CONSECUTIVE 


PASSES, ANY OF 




000024 


* 


THE PASSES SEES A 


'LOCKED' SHIFTER, 




A A A A O IT 

000025 


* 


THEN WE SAY THE DRIVE 


IS STOPPED. 




A A A A O 

000026 


* 












000027 


* 












A A A A O n 

000028 


CHKDRV EQU 






* 




000029 




LDX 






#3 ;CHECK SHIFTER SEVERAL TIMES 


000030 


CHKDl EQU 






* 




000031 




LDA 






Q6L+$60 


GET DATA 


000032 




CMP 






Q6L+$60 


HAS IT CHANGED? 


000033 




BNE 






CHANGED 


=>YES 


A A A A O A 

000034 




CMP 






Q6L+$60 


HAS IT CHANGED? 


A A A A O IT 

000035 




BNE 






CHANGED 


=>YES 


000036 




CMP 






Q6L+$60 


HAS IT CHANGED? 


A A A A O T 

000037 




BNE 






CHANGED 


=>YES 


000038 




CMP 






Q6L+$60 


HAS IT CHANGED? 


000039 




BNE 






CHANGED 


=>YES 


000040 




CMP 






Q6L+$60 


HAS IT CHANGED? 


000041 




BNE 






CHANGED 


=>YES 


000042 




CMP 






Q6L+$60 


HAS IT CHANGED? 


A A A A A O 

000043 




BNE 






CHANGED 


=>YES 


000044 




CMP 






Q6L+$60 


HAS IT CHANGED? 


000045 




BNE 






CHANGED 


=>YES 


A A A A A /" 

000046 




RTS 








IF EVER LOCKED, IT'S STOPPED 


000047 


* 












000048 


CHANGED EQU 






* 




000049 




DEX 










000050 




BNE 






CHKDl 


TRY SEVERAL TIMES 


000051 




DEX 






;SET CC=BNE 


A A A A C O 

000052 




RTS 






/RETURN ZFLAG APPROPRIATELY 


A A A A C 

000053 




PAGE 










000054 




REP 






40 




A A A A C IT 

000055 


* 


NAME : ADDTIME 










A A A A r 

000056 




FUNCTION: ADD TO MOTOR 


UPTIME (S) 




000057 




INPUT : AC=NO. OF 25 


MS INCREMENTS 




000058 


* 


DESTROYS: Y 










000059 




REP 






40 




000060 


* 












000061 


ADDTIME EQU 






* 




A A A A CO 




PHA 






/PRESERVE AC 


000063 




LDY 






#4 


TABLE INDEX/COUNT 


000064 


ADD2 EQU 






* 




000065 




LDA 






DRIVESEL-1,Y ;IS IT SELECTED? 


000066 




BEQ 






ADD3 


=>NOPE 


000067 




PLA 










000068 




PHA 






/RECOVER DELTA-T 


000069 




CLC 










000070 




ADC 






UPTIME-1, Y 


ADD TO MOTOR UPTIME 


000071 




CMP 






#TlSEC+2 ;IS IT AT MAX TIME? 


000072 




BCC 






ADD2A 


=>N0, STORE NEW TIME 


000073 




LDA 






#T1SEC+1 ;YES, SET TO >1 SEC 


000074 


ADD2A EQU 










000075 




STA 






UPTIME-1, Y 




000076 


ADD3 EQU 
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000077 




DEY 








000078 




BNE 




ADD2 


;^>D0 ALL 4 DRIVES 


000079 












000080 




PLA 






; RESTORE AC 


000081 




RTS 








000082 




PAGE 








000083 




REP 




40 




000084 


* NAME 


RECAL 








000085 


* FUNCTION 


RECALIBRATE DRIVE HEAD 




000086 


* INPUT 


NONE 








000087 


* DESTROYS 


ALL REGISTERS 






000088 


* NOTE 


A 'QUIET' 


RECALIBRATE IS DONE 




000089 




USING TWO 


ITERATIONS. IF WE ARE 




000090 




LOST, THEN 


SEEK 4 8 -TRACKS 




000091 




TOWARD TRACK ZERO. IF WE KNOW 




000092 




WHAT TRACK 


WE' 


RE CURRENTLY 




000093 




ON (+- 1/2 


TRACK) , THEN JUST 




000094 




ADD A LITTLE EXTRA AND SEEK 




000095 




TO TRACK ZERO. 


A 48-TRACK 




000096 




SEEK WILL 


ALWAYS GET US BACK 




000097 




ONTO THE MEDIA 


, EVEN IF WE 




000098 




WERE "OFF 


THE 


CAM" . FROM THAT 




000099 




POINT, THE 


2ND 


SEEK GETS US 




000100 




BACK TO TRACK 


ZERO QUIETLY . 




000101 




REP 




40 




000102 












000103 


RECAL 


EQU 








000104 




LDA 




#2 


; TWO ITERATIONS, PLEASE 


000105 


RECALl 


EQU 








000106 




PHA 






; SAVE LOOPCOUNT 


000107 




LDX 




#$60 


; SETUP SLOT FOR CORE RTNS 


000108 




JSR 




RDADR 


; WHERE ARE WE? 


000109 




BCC 




RECAL2 


;=>NOW WE KNOW 


000110 




JSR 




RDADR 


;GIVE SECOND SHOT 


000111 




BCC 




RECAL2 


;^>THAT GOT IT 


000112 




LDA 




#48 


;LOST? TRY 48-TRACK SEEK 


000113 




JMP 




RECAL3 




000114 


RECAL 2 


EQU 




* 




000115 




LDA 




CSSTV+2 


; HERE ' S WHERE WE ARE 


000116 




CLC 






;ADD SOME SO WE GET A 


000117 




ADC 




#3 


; HARDER SEEK TO ZERO 


000118 


RECAL3 


EQU 




* 




000119 




LDY 




D.UNITNUM 


;THIS IS NOW WHERE 


000120 




STA 




DRVTRACK, Y 


; WE ARE 


000121 




JSR 




FIXIRQ 


;ENABLE IRQ IF OK 


000122 












000123 




LDA 




#0 


;DESTINATION TRACK IS 00 


000124 




STA 




MONTIMEH 


; CLEAR MOTOR-UP TIME SO 


000125 




STA 




MONTIMEL 


; SEEK KNOWS HOW LONG RECAL 


000126 




JSR 




MYSEEK 


;=>SLAM IT BACK! 


000127 




PLA 






;HAVE WE DONE IT TWICE? 


000128 




TAY 








000129 




DEY 








000130 




TYA 








000131 




BNE 




RECALl 


;=>D0 TWO ITERATIONS 


000132 




RTS 








000133 




PAGE 








000134 




REP 




40 




000135 


* NAME 


SEEKDSK3 








000136 


* FUNCTION 


SEEK CURRENT DRIVE 




000137 


* INPUT 


AC=DESTINATION 


TRACK 




000138 


* OUTPUT 


NONE 








000139 


* DESTROYS 


ALL REGISTERS 






000140 


* NOTE 


MUST BE CALLED 


WHILE 




000141 




MOTOR IS 


RUNNING, IN 




000142 




IMHZ+ROM+IO MODE 




000143 




REP 




40 




000144 


SEEKDSK3 


EQU 




* 




000145 




LDY 




PREVUNIT 


; GET DRIVENUM 


000146 




STY 




D . UNITNUM 


;SET IT UP 


000147 




JSR 




MYSEEK 


;MOVE IT! 


000148 




RTS 








000149 




REP 




40 




000150 


* NAME 


MYSEEK 








000151 


* FUNCTION 


SEEK TO DESIRED TRACK 




000152 


* INPUT 


AC=DESTINATION 


TRACK 




000153 


* DESTROYS 


ALL REGISTERS 






000154 




REP 




40 




000155 


MYSEEK 


EQU 








000156 




STA 




TRKN 


;TEMP HOLD OF AC 


000157 




LDY 




D.UNITNUM 


;GET DRIVENUM 
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000158 






LDA 






DRVTRACK, Y 


; SETUP CURRENT TRACK 


000159 






ASL 






A 


; SET IN HALFTRACKS FOR SEEK 


000160 






STA 






CURTRK 


; FOR SEEK ROUTINE 


000161 






LDX 






#$60 


; SET UP SLOT FOR CORE RTNS 


000162 






LDA 






MONTIMEH 


;GET STARTING MOTOR TIME 


000163 






STA 






TEMP 




000164 
















000165 




NOTE : IRQ 


'S WHICH 


SUSPEND SEEK MAY CAUSE A 




000166 




SEEK EAILURE. WE 


WILL HAVE TO RECALIBRATE 




0001 67 




SINCE WE 


WON'T BE 


ON 


-TRACK. WE CAN NOT GET 




000168 




ON A HALFTRACK SINCE 


SEEK ALLOWS SETTLING 




000169 




TIME OF 


THE PHASE 


. BECAUSE VBL IS A SERIOUS 




000170 




OFFENDER 


, WE INHIBIT 


HIM. 




000171 
















000172 






PHP 








; INHIBIT IRQ WHILE 


00017 J 






SEI 








; MESSING WITH VBL FLAGS 


000174 






LDA 






E . lER 




000175 






AND 






#$18 




000176 






STA 






VBLSAVE 




000177 






STA 






E.IER 




000178 






PLP 








; RESTORE IRQ STATUS 


000179 






LDA 






TRKN 


; RESTORE DESTINATION TRACK 


000180 






STA 






DRVTRACK, Y 


;DEST IS NOW CURRENT 


000181 






ASL 






A 


;MAKE IT IN HALFTRACKS 


000182 






JSR 






SEEK 


;G0 MOVE THE HEAD. . . 


000183 






LDA 






VBLSAVE 


;NOW ALLOW THAT 


000184 






ORA 






#$80 


; NASTY 


000185 






STA 






E.IER 


; VBL INTERRUPT 


000186 
















000187 




COMPUTE THE TIME USED 


BY 


SEEK: 




A A A T on 

000188 
















000189 






LDA 






MONTIMEH 


; INCLUDE SEEKTIME IN 


000190 






SEC 










000191 






SBC 






TEMP 




000192 






JSR 






ADDTIME 


; TOTAL MOTOR UPTIME (S) 


000193 






RTS 










000194 






PAGE 










000195 






REP 






40 




000196 


* 


NAME : 


BLK2SECT 










000197 


* 


FUNCTION: 


COMPUTE 


TRACK/SECTOR FOR A BLOCK 




000198 


* 




AND ADJUST 


BUFFER ADDRESS 




000199 


* 


INPUT : 


D. BLOCK, 


D. 


BUF 






A A A O A A 


* 


OUTPUT : 


TRACK, SECTOR, 


D.BUF 




000201 


* 


DESTROYS: 


AC,Y 










000202 






REP 






40 




000203 


* 














000204 


BLK2SECT 


EQU 






* 




000205 






LDA 






BLKTEMP+1 


;GET HI BLK HALF 


000206 






ROR 






A 


;MOVE LO BIT TO CARRY 


000207 






LDA 






BLKTEMP 


;GET LO HALF 


000208 






ROR 






A 


; COMBINE WITH HI BIT 


000209 






LSR 






A 




000210 






LSR 






A 


; FINISH OFF DIVIDE-BY-8 


000211 






STA 






TRACK 


; THAT ' S THE TRACK 


000212 






LDA 






BLKTEMP 


;GET LO HALF AGAIN 


000213 






AND 






#7 




000214 






TAY 










000215 






LDA 






SECTABLE, Y 


; GET START SECTOR 


000216 






STA 






SECTOR 




000217 


* 














000218 


* 


ADJUST BUFFER ADDRESS 


SO 


THAT I/O 




000219 




WON'T WRAPAROUND 


IN 


THE 


BANK: 




000220 


* 


(THIS ALGORITHM RIPPED OFF FROM 1.0) 




000221 


* 














000222 






LDA 






BUFTEMP+1 


;GET BUFFER HI ADDRESS 


000223 






LDY 






$1400+BUFTEMP+1 


; AND XTND BYTE 


000224 






CMP 






#$82 


;IF RAM ADDR >=8200 THEN BUMP 


000225 






BCC 






NOADJ 


; NEXT BANK PAIR 


000226 






CPY 






#$80 




000227 






BCC 






NOADJ 


;^>NOT USING BANKPAIR 


000228 






CPY 






#$8F 


/SPECIAL BANK 0? 


000229 






BEQ 






NOADJ 


;^>YES 


000230 






AND 






#$7F 


;DROP HI ADDRESS AND 


000231 






STA 






BUFTEMP+1 


; BUMP BANK NUMBER 


000232 






INC 






$1400+BUFTEMP+1 




000233 


* 














000234 


NOADJ 


EQU 






* 




000235 






LDA 






BUFTEMP+1 


;COPY BUFFER ADDRESS 


000236 






STA 






BUF+1 


; FOR PRE & POSTNIB 


000237 






LDA 






BUFTEMP 




000238 






STA 






BUF 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 



LDA 
STA 
RTS 



$1400+BUFTEMP+1 
$1400+BUF+1 



SECTABLE DFB 
PAGE 

REP 40 

* NAME : MOREBLKS 

* FUNCTION: SETUP TO DO NEXT BLOCK 

* INPUT : NONE 

* RETURNS : 'BNE' IF MORE TO DO 

* ; 'BEQ' IF NO MORE TO DO 

* DESTROYS: NOTHING 



$00,$a4,$08,$0C,$01,$05,$09,$0D 



M0RE2 



* NAME 

* FUNCTION 

* INPUT 

* DESTROYS 



FIXIRQ 



40 



BUFTEMP+1 

BUFTEMP+1 

BLKTEMP 

M0RE2 

BLKTEMP+1 



4 

40 



APPROPRIATE 



40 



IRQMASK 
FIXRET 



;BUMP BUFFER ADDRESS 
;BUMP BLOCK NUMBER 



;MORE BLOCKS TO GO? 
/RETURN RESULT OF DEC 



REP 

EQU 
INC 
INC 
INC 
BNE 
INC 
EQU 
DEC 
RTS 
SKP 
REP 
FIXIRQ 

ENABLE IRQ IF 
NONE 
NOTHING 
REP 

EQU 

PHA 
LDA 
BMI 
CLI 
EQU 
PLA 
RTS 



CHN DISK3. DATA. SRC 

* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 . SUBS . SRC 
************************************************************************* 



/SHOULD IRQ BE ENABLED? 
;=>N0, LEAVE IT ALONE 
/ENABLE IRQ 



End of File 



Lines: 286 Characters: 9045 
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FILE : " SOS . DISK3 . USEL . SRC . TEXT " 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 . USEL . SRC 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



NAME : 
FUNCTION: 

INPUT 

OUTPUT 

DESTROYS 



PAGE 

REP 40 
UNITSEL 

SELECT S START A DRIVE, 
SET UP MOTOR S SEEK DELAYS 

NONE 

MONTIME, SEEKTIME 
ALL REGISTERS 



REP 

EQU 
LDY 
LDA 
STA 
STA 
STA 



40 



D.UNITNUM 
#0 

SEEKWAIT 
MONTIMEL 
MONTIMEH 



* SEE IF MOTOR(S) STILL SPINNING: 



JSR 
BNE 



CHKDRV 
SPINNING 



NO MOTOR (S) SPINNING. DESELECT 
ALL MOTORS AND START AFRESH: 



LDX 
LDA 
STA 
STA 
JSR 
JMP 
REP 

MOTOR(S) SPINNING: OURS? 

PINNING EQU 

LDA 
BNE 



MD. INT 
#0 

DRIVESEL+0 
UPTIME+0 
EXTDESEL 
SETT IMF 
40 



DRIVESEL, Y 
GOFORIT 



WE AREN' 
DRIVE, 



T SPINNING. SHUTDOWN ANOTHER 
IF NECESSARY, TO GET GOING: 



CPY 
BEQ 



#0 

SETT IMF 



;GET DRIVENUM 
/ASSUME NO SEEICWAIT 
; WILL BE NEEDED 
/CLEAR MONTIME 



;MOTOR(S) POWERED UP? 
;=>YES. WHO IS IT? 



/DESELECT ALL 
;SHOW INTERNAL AS 
; NOT SELECTED 

/INDICATE DRIVE IS FULLY STOPPED 
/DESELECT ALL EXTERNALS TOO 
;G0 SETUP MOTOR DELAY 



;HAD WE BEEN SELECTED? 
;=>YES, GO FOR IT RIGHT AWAY. 



;ARE WE THE INTERNAL DRIVE? 
;=>YES, LEAVE EXT MOTOR ALONE 



WE'RE AN EXTERNAL DRIVE. STOP ALL EXTERNAL MOTORS 
UNCONDITIONALLY, BUT LEAVE THE INTERNAL MOTOR ALONE. 

IF WE *DID* HAVE TO STOP ANOTHER EXTERNAL, THEN 
MAKE SURE WE SET THE CORRECT PRE-SEEK DELAY! 



LDA 
ORA 
ORA 
ORA 
BEQ 
INC 
JSR 
JMP 
PAGE 
REP 

OUR DRIVE IS SPINNING. 
DEPENDING OF HOW LONG THE MOTOR'S BEEN ON, 
THIS COMMAND MAY REQUIRE A MOTOR DELAY. 



#0 

DRIVESEL+3 

DRIVESEL+2 

DRIVESEL+1 

SETTIME 

SEEKWAIT 

EXTDESEL 

SETTIME 

40 

GO FOR IT! 



SEE IF ANOTHER EXTERNAL 
HAD BEEN 
SELECTED 
BEFORE . . . 
=>N0, SEEK DELAY IS UNNECESSARY 
YES, DELAY BEFORE STEPPING 
DESELECT ALL EXTERNALS 
=>G0 SETUP MOTOR DELAY 



EQU 
LDX 
LDA 
SEC 
SBC 
BCS 
LDA 
JMP 



D. COMMAND 
MTIMES,X 

UPTIME, Y 

SELECT 
#0 

SELECT 



;GET CURRENT COMMAND 

;GET REQUIRED UPTIME FOR IT 

/DRIVE RUNNING LONG ENOUGH? 
;=>N0, AC NOW HAS DELTA-T 
/OTHERWISE, WAIT=0 
;SET MONTIME S SELECT DRIVE 
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000077 


REP 




40 




000078 


* 








r\ /\ "1 f\ 

oooovy 


* ALL MOTORS WERE OFF. CHOOSE THE 




OOOOoO 


* APPROPRIATE MOTOR- 


-ON TIME: 




A A A A A T 

OOOOol 










A A A A A O 

000082 


SETTIME EQU 




* 




A A A A A O 

OOOOo J 


LDA 




#0 /INDICATE THAT 


000084 


STA 




UPTIME, Y 


THE DRIVE WAS OFF 


000085 


LDX 




D. COMMAND ;GET CURRENT COMMAND 


000086 


LDA 




MTIMES,X ;GET CORRECT DELAY TIME 


000087 


REP 




40 




A A A A A A 

000088 










A A A A A A 

000089 


* SELECT THE DRIVE & 


START 


IT: 




A A A A A A 

000090 










A A A A A T 

000091 


SELECT EQU 




* 




A A A A A A 

000092 


STA 




MONTIMEH 


NEGATE IT BECAUSE 


000093 


LDA 




#0 


IT GETS INCREMENTED 


000094 


SEC 






INSTEAD OF 


000095 


SBC 




MONTIMEH 


DECREMENTED 


000096 


STA 




MONTIMEH 


STUFF MOTOR DELAY 


A A A A A T 

000097 


CPY 




#1 


ARE WE THE INTERNAL DRIVE? 


A A A A A A 

000098 


BCS 




SELEXT 


=>N0, AN EXTERNAL 


A A A A A A 

000099 


LDA 




IS. INT 


I/O SELECT INTERNAL 


000100 


LDA 




MS . INT 


MOTOR SELECT INTERNAL 


A A A 1 AT 

000101 


JMP 




UNITRET 


=>ALL DONE! 


000102 










000103 


SELEXT EQU 








000104 


LDA 




IS. EXT 


I/O SELECT EXTERNAL 


000105 


CPY 




#2 


ARE WE 2, 3, OR 4 ? 


000106 


BCS 




N0TD2 


=>DEFINITELY 3 OR 4 


A A A T AT 

000107 


LDA 




MD.EXTl /MOTOR SELECT 


A A A T A A 

000108 


LDA 




MS.EXT2 


ONLY .D2 


A A A T A A 

000109 


JMF 




UNITRET 


=>ALL DONE! 


A A A 1 T A 

000110 










000111 


N0TD2 EQU 




* 




000112 


BNE 




ISD4 


=>DEFINITELY NOT 3 


r\ A A 1 T 'J 

000113 


LDA 




MS. EXT 1 ; MOTOR SELECT 


000114 


LDA 




MD.EXT2 


ONLY .D3 


000115 


JMP 




UNITRET 


=>ALL DONE! 


A A A T T 

000116 


* 








000117 


ISD4 EQU 




* 




A A A T •^ A 

000118 


LDA 




MS.EXTl ; MOTOR SELECT 


A A A 1 T A 

000119 


LDA 




MS.EXT2 


ONLY .D4 


000120 










000121 


* 








000122 


UNITRET EQU 




* 




000123 


LDA 




MOTORON /PROVIDE MOTOR POWER 


000124 


LDA 




#1 ;SAY WE'VE SELECTED 


A A A T A IT 

000125 


STA 




DRIVESEL, Y 


THIS DRIVE 


A A A T A 

000126 


* 








A A A T AT 

000127 


* IF WE HAVE MOTORTIME TO 


BURN, 




A A A 1 OA 

000128 


* THEN DELAY 50 MS. 


THIS 


ENSURES 




000129 


* A GOOD SOLID CHKDRV AFTER 




000130 


* TURNING ON THE MOTOR. 






000131 


* 








000132 


LDA 




MONTIMEH 


ANY MOTORTIME? 


A A A T O O 

000133 


BPL 




UNITRTS 


=>N0, WE GO FOR IT. 


A A A T A 

000134 


LDY 




#5 ;5*10 MS 


A A A T O IT 

000135 


UNITDEL EQU 




* 




A A A T O /" 

000136 


LDA 




#100 ;100*100US IS lOMS 


A A A 1 O "7 

00013 / 


JSR 




MSWAIT 




000138 


DEY 








000139 


BNE 




UNITDEL 




000140 


LDA 




#2 /INCLUDE THE 5 QMS 


000141 


JSR 




ADDTIME 


IN MOTOR UPTIME (S) 


000142 


UNITRTS EQU 




* 




A A A T /I O 

000143 


RTS 








000144 


SKP 




5 




A A A T /I IT 

000145 


REP 




40 




000146 


* NAME : EXTDESEL 








000147 


* FUNCTION: DESELECT 


ALL EXTERNAL DRIVE MOTORS 




000148 


* INPUT : NONE 








000149 


* DESTROYS: AC,X 








000150 


REP 




40 




000151 


* 








000152 


EXTDESEL EQU 




* 




000153 


LDA 




MD.EXTl /DESELECT ALL EXTERNAL 


000154 


LDA 




MD.EXT2 


DRIVE MOTORS 


000155 


LDX 




#3 ;SHOW THAT THEY ARE 


000156 


LDA 




#0 


ARE ALL DEAD DUCKS 


000157 


EDSl STA 




DRIVESEL, X 
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/DRIVE MOTORS ARE OFF 



000158 STA 

000159 DEX 

000160 BNE 

000161 RTS 
000162 

000163 CHN 

000164 

000165 ********************** 

000166 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 . USEL . SRC 

000167 ************************************************************************* 

000168 



UPTIME, X 
EDSl 

DISK3. SUBS. SRC 



************** 



End of File 



Lines: 168 Characters: 5663 
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FILE: "SOS. DISK3.WRT. SRC. TEXT" 



A A A T 


************************************************************ 


A A A A n 


* APPLE /// SOS 


1.3 SOURCE 




.SRC 


000003 










000004 


* ASSEMBLER: APPLE ] [ 6502 


rtOOJijilDljilirv L LUiil rtirJrljrii 


COMPUTER TOOLKIT 


000005 












000006 




PAGE 








A A A A A 

000007 




REP 


40 






A A A A A n 

000008 


* WRITE 










000009 




REP 


40 






A A A A T A 

000010 












A A A A T T 

000011 


WRITEREQ 


EQU 


* 






000012 




JSR 


oJ_jrvZ otji,^ X 


/COMPUTE TRK/SECTOR THIS BLOCK 


000013 




LDA 




;SET 2 MHZ 


000014 




AND 








000015 




STA 








A A A A T 

000016 




JSR 






PRENIBBLIZE FOR WRITE 


000017 




JSR 






WRITE IT OUT. . . 


000018 




BCS 


MT5 TTTTPP 




=>SOMETHING'S WRONG 


A A A A T A 

ooooiy 












A A A A O A 

OOOOzO 




INC 


QTPTnp 

O-CiL. 1 '■Jts. 


;BUMP TO NEXT 


000021 




INC 






LOGICAL SECTOR 


000022 




INC 




;BUMP SECTOR BUFFER ADDRESS 


000023 




LDA 


E^REG 


;SET 2 MHZ 


000024 




AND 








A A A A IT 

000025 




STA 








A A A A O 

000026 




JSR 






PRENIBBLIZE FOR WRITE 


000027 




JSR 






WRITE IT OUT 


000028 




BCS 


T/JP TTTTPP 




=>SOMETHING'S WRONG 


A A A A O A 

000029 












000030 


* MORE BYTES TO 


DO? 








000031 












000032 




JSR 


1^1 L.' r\lli Jj J_i lA 




SETUP FOR NEXT 


000033 




BNE 


TflIP TTTTPTTn 




=>MORE TO DO 


A A A A O A 

000034 




LDA 


ff u 


;GOOD RETURN 


A A A A O IT 

000035 




JMP 


EXIT 






000036 












000037 


WRITERR 


EQU 


* 






A A A A t) O 

00003b 




JMP 


EXIT 


/RETURN ERROR CODE 


000039 




PAGE 








000040 




REP 


40 






000041 


* STATUS - 










000042 




REP 


40 






A A A A /I 

000043 












000044 


STATUS 


EQU 


* 






000045 




LDX 


ff 90U 


/DUMMY SLOT 


000046 




LDA 




/SENSE WRITE PROTECT 


000047 




LDA 


Q7L, X 






000048 




ASL 






PRESERVE IT IN CARRY 


000049 




LDA 


Q6L X 




BACK TO READ MODE 


000050 




LDA 


ff u 




NOW MOVE BIT TO 


000051 




ROL 






PROPER POSITION 


A A A A C O 

000052 




ROL 


^ 




($02) 


A A A A C 

000053 




LDY 


ff u 






000054 




STA 


\U , Li\LD\JSl I f i 


/RETURN IT 


A A A A C IT 

000055 




LDA 


ff U 


/GOOD RETURN 


A A A A r 

000056 




JMP 


EXIT 


/ DONE 


000057 




PAGE 








000058 




REP 


40 






000059 


* iNiT 










000060 




REP 


40 






A A A A ^ 1 

000061 


* 










000062 


INIT 


EQU 


* 






000063 




LDA 


INITFLAG 




INIT 'ED YET? 


000064 




BMI 


GOODINIT 




=>YES, DONE 


000065 


* 










000066 




LDA 


#$60 


/SETUP SLOT FOR 


000067 




STA 


IBSLOT 




CORE ROUTINES 


000068 




LDA 


#$FF 




PREVENT SECOND 


000069 




STA 


INITFLAG 




INIT 


000070 




LDA 


#0 


/CLEAR STUFF OUT 


000071 




STA 


PREVUNIT 


/SOSBOOT JUST USED . Dl 


000072 




LDY 


#4 






000073 


CLRDRVS 


EQU 


* 






000074 




LDA 


#0 






000075 




STA 


DRIVESEL-l, Y 


/NOBODY SELECTED 


000076 




STA 


UPTIME-1, Y 




ALL OFF 
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000077 


STA 


DRVTRACK-1, Y 




000078 


DEY 






000079 


BNE 


CLRDRVS 




000080 


DO 


1-TEST ;ONLY IF NOT TESTING 


000081 








000082 


* SET UP .Dl SINCE LOADER 


'S USING IT: 




000083 








000084 


LDA 


E.REG ;SET IMHZ FOR THE 


000085 


ORA 


#S80 


STATEMACHINE I/O 


000086 


STA 


E.REG 




000087 


JSR 


CHKDRV ;IS . Dl MOTOR SPINNING? 


000088 


BEQ 


INIT2 


=>N0, MOTOR'S OFF 


000089 


LDA 


#T200MS /UPTIME GOOD FOR READS 


000090 


STA 


UPTIME+0 




000091 


INIT2 EQU 


* 




000092 


LDA 


#1 




000093 


STA 


DRIVESEL+0 


.Dl IS THE CURRENT DRIVE 


000094 


LDA 


$0300+CURTRK 


RETRIEVE CURRENT TRACK 


000095 


STA 


DRVTRACK+0 


REMEMBER IT 


000096 


FIN 






000097 


* 






000098 


* SET UP JMP TABLE FOR CORRECT ROM: 




000099 








000100 


DO 


REVOROM ;ONLY IF SUPPORTING IT! 


000101 


LDA 


$F1B9 /LOOK FOR START OF RDADR 


000102 


CMP 


#$A0 


IS IT RDADR (REVl) ? 


000103 


BEQ 


INITREVl 


=>YES 


000104 


CMP 


#$60 


IS IT END OF READ (REVO)? 


000105 


BNE 


INITERR 


=>NEITHER! 


000106 


LDY 


#0 


REV=0 


000107 


BEQ 


INITVECT 


(ALWAYS TAKEN) 


000108 


INITREVl EQU 


* 




000109 


LDY 


#VSIZE 




000110 


INITVECT EQU 






000111 


STY 


ROMREV ;SET ROM REVISION INDICATOR 


000112 


LDX 


#VSIZE 




000113 


MOVEVECT EQU 






000114 


LDA 


REVO,Y ;GET A BYTE 


000115 


STA 


JMPTAB,Y ;MOVE IT 


000116 


INY 






000117 


DEX 






000118 


BNE 


MOVEVECT 




000119 


FIN 






000120 


GOODINIT EQU 


* 




000121 


LDA 


#0 


RETCODE=GOOD, IF YOU CARE 


000122 


CLC 




SAY 'GOOD INIT' 


000123 


BCC 


EXIT 


(ALWAYS TAKEN) 


000124 


DO 


REVOROM 






INITERR EQU 


* 




000125 


SEC 


;SAY 'BAD INIT' 


000127 


* FALL THRU TO EXIT 






000128 


FIN 






000129 


PAGE 






000130 


REP 


40 




000131 


* — EXIT PATH — 






000132 


REP 


40 




000133 


* 






000134 


EXIT EQU 


* 




000135 


PHA 


;SAVE RETURN CODE 


000136 


* 






000137 


* UPDATE UPTIME BY 50 MS 


(3 SECTOR-TIMES) 




000138 


* TO ACCOUNT FOR READ/WRITE TIME: 




000139 


* 






000140 


LDA 


D. COMMAND ;GET COMMAND 


000141 


CMP 


#2 /SENSE OR INIT? 


000142 


BCS 


EXIT2 


=>YES, NO TIME USED UP 


000143 


LDA 


#2 


TIME=50 MS (2 UNITS) 


000144 


JSR 


ADDTIME ;BUMP UPTIME (S) 


000145 


* 






000146 


* RESTORE CALLER ENVIRONMENT: 




000147 








000148 


EXIT2 EQU 






000149 


LDA 


E.REG 


GET CURRENT STATE 


000150 


AND 


#$20 


OF THE SCREEN 


000151 


ORA 


ESAVE 


MERGE WITH CALLER STATE 


000152 


STA 


E.REG 




000153 


JSR 


FIXIRQ 


RE-ENABLE IRQ IF OK 


000154 


LDA 


MOTOROFF ; START MOTOR-OFF TIMEOUT 


000155 


PLA 


/RESTORE RETURN CODE 


000156 


DO 


TEST 


IF TEST, NO SYSERR 


000157 


RTS 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 



ELSE 

BNE 

CLC 

RTS 

EQU 

JSR 

FIN 



;=>ERROR RETURN VIA SYSERR 
;GOOD RETURN W/CARRY CLEAR 
/RETURN VIA SYSERR 



CHN DISK3.SI0.SRC 

************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: DISK3 . WRT. SRC 

************************************************************************* 



End of File 



Lines: 170 Characters: 5441 
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FILE: "SOS. EQUATES. TEXT" 



A A A T 


********************************************************** 


A A A A n 


* 


APPLE 


/// 


SOS 


1.3 SOURCE 


CODE FILE: EQUATES 




000003 












* * ** 




000004 


* 


ASSEMBLER: 


APPLE ] [ 


6502 


ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 


















000006 


* 
















A A A A A 

000007 










ENTRY 




BFMGR 




A A A A A n 

000008 


* 
















000009 




BFM INITIALIZATION ENTRIES 




000010 


* 


(INIT 


CODE 


FOUND IN 


INIT 


. SRC) 




000011 


* 
















000012 










ENTRY 




BFMFCBl 


FOB PAGE 1 ADDR 


000013 










ENTRY 




BFMFCB2 


AND PAGE 2 


000014 










ENTRY 




FCBZPP 




000015 










ENTRY 




SISTER 




A A A A T 

000016 










ENTRY 




PATHBUF 




000017 










ENTRY 




VCB 




A A A A T n 

OOOOlo 










ENTRY 




WORKS PC 




A A A A T A 

ooooiy 










ENTRY 




PFIXPTR 




A A A A O A 

OOOOzO 










ENTRY 




BMAPAGE 




000021 










ENTRY 




BMBPAGE 




000022 










ENTRY 




FCBADDRH 




000023 














BM/yyiADR 




000024 










ENTRY 




BMBMADR 




000025 


* 
















A A A A O 

000026 


* 
















000027 










EXTRN 




LEVEL 


FILE LEVEL (LOW BYTE) 


A A A A O n 

000028 










EXTRN 




OPMSGRPLY 


OPERATOR MESSAGE 


A A A A O A 

00002y 










EXTRN 




DATETIME 


THANKS TOM. . . 


000030 










EXTRN 




DMGR 


THANKS BOB. . . 


000031 










EXTRN 




REQBUF 




000032 














REQFXBUF 




000033 










EXTRN 




GETBUFADR 




A A A A O A 

000034 










EXTRN 




RELBUF 




A A A A O IT 

000035 










EXTRN 




BLKDLST 




A A A A O 

000036 










EXTRN 




SERR 




A A A A O T 

000037 










EXTRN 




BACKMASK 




000038 


* 
















000039 




ERRORS 














000040 


















000041 










tjAiKJN 




SYSERR 




000042 


* 
















A A A A A O 

000043 










EXTRN 




BAD PATH 


INVALID PATHNAME SYNTAX 


000044 










EXTRN 




FCBFULL 


FILE CONTROL BLOCK FULL 


000045 










EXTRN 




BADREFNUM 


INVALID REFNUM 


A A A A A 

000046 










EXTRN 




PATHNOTFND 


PATHNAME NOT FOUND 


000047 










EXTRN 




VNFERR 


VOLUME NOT FOUND 


000048 










EXTRN 




FNFERR 


FILE NOT FOUND 


000049 










EXTRN 




DUPERR 


DUPLICATE FILE NAME ERROR 


000050 














DUPVOL 


DUPLICATE VOLUME CAN'T BE LOGGED IN. 


000051 










EXTRN 




OVRERR 


NOT ENOUGH DISK SPACE FOR PREALLOCATION 


A A A A C O 

000052 










EXTRN 




DIRFULL 


DIRECTORY FULL ERROR 


000053 










EXTRN 




CPTERR 


FILE INCOMPATIBLE SOS VERSION 


000054 










EXTRN 




TYPERR 


NOT CURRENTLY SUPPORTED FILE TYPE 


000055 










EXTRN 




EOFERR 


POSITION ATTEMPTED BEYOND END OF FILE 


A A A A r 

000056 










EXTRN 




POSNERR 


ILLEGAL POSITION {L . T . OR G . T . $FFFFFF) 


000057 










EXTRN 




ACCSERR 


FILE ACCESS R/W REQUEST CONFLICTS WITH ATTRIBUTES. 


000058 










EXTRN 




BTSERR 


USER SUPPLIED BUFFER TOO SMALL 


000059 










EXTRN 




FILBUSY 


EITHER WRITE WAS REQUESTED OR WRITE ACCESS ALREADY ALLOCATED 


000060 










EXTRN 




NOT SOS 


NOT A SOS DISKETTE 


A A A A ^ T 

000061 










EXTRN 




BADLSTCNT 


INVALID VALUE IN LIST PARAMETER 


000062 










EXTRN 




XDISKSW 


DISK SWITCHED 


000063 










EXTRN 




NOTBLKDEV 


NOT A BLOCK DEVICE 


000064 










EXTRN 




XNOWRITE 


DISK/MEDIA IS HARDWARE WRITE PROTECTED 


000065 










EXTRN 




XIOERROR 


INFORMATION ON BLOCK DEVICE NOT ACCESSABLE 


000066 










EXTRN 




DIRERR 


DIRECTORY ENTRY COUNT INCONSISTENT WITH ACTUAL ENTRIES 


000067 










EXTRN 




BITMAPADR 


BIT MAP DISK ADDRESS IMPOSSIBLE 


000068 


* 
















000069 




FATAL 


ERRORS 










000070 


* 
















000071 










EXTRN 




SYSDEATH 




000072 


* 
















000073 










EXTRN 




VCBERR 


VOLUME CONTROL BLOCK NOT USABLE 


000074 










EXTRN 




ALCERR 


ALLOCATION BLOCKS INVALID 


000075 










EXTRN 




TOOLONG 


PATHNAME BUFFER OVERFLOW 


000076 










PAGE 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 



CONSTANTS 







EQU 


$2F 


UiliLilml itjK lb LUKKhjlNiljI AJM AbLll / 


SEEDTYP 




EQU 


1 




SAPTYP 




EQU 


2 




TRETYP 




EQU 


3 




DIRTYP 




EQU 


$D 




HEDTYP 




EQU 


$E 




RDCMD 




EQU 


$0 




WRTCMD 




EQU 


$1 




RPTCMD 




EQU 


$9 




STATCMD 




EQU 


$02 


REQUEST STATUS OF BLOCK DEVICE. (BIT = WRITE 


STATSUB 




EQU 


$0 




PRETIME 




EQU 


$20 


COMMAND NEEDS CURRENT DATE / T IME STAMP 


PREREF 




EQU 


$40 




PRE PATH 




EQU 


$80 


COMMAND HAS PATHNAME TO PREPROCESS 


SISTER 




EQU 


$1400 




* VOLUME 
* 


STATUS 


CONSTANTS 


(BITS) 




DSWITCH 
* 




EQU 


$40 


FOR DISK SWITCHED ERROR RECOVERY. 


* FILE STATUS CONSTANTS 
* 






DATALC 




EQU 


$1 


DATA BLOCK NOT ALLOCATED . 


IDXALC 




EQU 


$2 


INDEX NOT ALLOCATED 


TOPALC 




EQU 


$4 


TOP INDEX NOT ALLOCATED 


STPMOD 




EQU 


$8 


STORAGE TYPE MODIFIED 


USEMOD 




EQU 


$10 


FILE USAGE MODIFIED 


EOFMOD 




EQU 


$20 


slNu (Jc r ILitj NUJJlr liLU 


DATMOD 




EQU 


$40 


DATA BLOCK MODIFIED 


IDXMOD 




EQU 


$80 


INDEX BLOCK MODIFIED 


FCBMOD 
* 




EQU 


$80 


HAS FCB/DIRECTORY BEEN MODIFIED? (FLUSH) 


* FILE ATTRIBUTES CONSTANTS 
* 




READEN 




EQU 


$1 


READ ENABLED 


WRITEN 




EQU 


$2 


WRITE ENABLED 


NLINEN 




EQU 


$10 


NiLn LillNtj EiWADJ-iiljU 


BKBITVAL 




EQU 


$20 


FILE NEEDS BACKUP IF SET (BKBITFLG) 


RENAMEN 




EQU 


$40 


RENAME OK WHEN ON . 


DSTROYEN 




EQU 


$80 


UiliblKUi Urv WntjJN (JJN . 






PAGE 






* HEADER 


INDEX 


CONSTANTS 






HNLEN 




EQU 


$0 


HEADER NAME LENGTH (OFFSET INTO HEADER) 


*HNAME EQU $1 ; 


HEADER NAME 




HPENAB 




EQU 


$10 


PASSWORD ENABLE BYTE 


HPASS 




EQU 


$11 


ENCODED PASSWORD 


HCRDT 




EQU 


$18 


HEADER CREATION DATE 


* HCRTM EQU $1A 


; HEADER 


CREATION TIME 




HVER 




EQU 


$1C 


SOS VERSION THAT CREATED DIRECTORY 


HCMP 




EQU 


$1D 


BACKWARD COMPATIBLE WITH SOS VERSION 


HATTR 




EQU 


$1E 


HEADER ATTRIBUTES- PROTECT ETC. 


* HENTLN 


EQU $1F ; LENGTH 


OF EACH ENTRY 





* HMENT EQU $20 ; MAXIMUM NUMBER OF ENTRIES/BLOCK 
HCENT EQU $21 

HRBLK EQU $23 

HRENT EQU $25 

HRELN EQU $26 

VBMAP EQU HRBLK 

VTBLK EQU HRENT 

* VOLUME CONTROL BLOCK INDEX CONSTANTS 



CURRENT NUMBER OF FILES IN DIRECTORY 
OWNER'S DIRECTORY ADDRESS 
OWNER'S DIRECTORY ENTRY NUMBER 
OWNER'S DIRECTORY ENTRY LENGTH 

(USED FOR ROOT DIRECTORY ONLY) 



VCBSIZE EQU 
VCBNML EQU 
VCBNAM EQU 
VCBDEV EQU 
VCBSTAT EQU 
VCBTBLK EQU 
VCBTFRE EQU 
VCBROOT EQU 
*VCBMORG EQU $18 ; MAP ORGANIZATION (NOT SUPPORTED BY V 0) 
*VCBMBUF EQU $19 ; BIT MAP BUF NUM 

VCBDMAP EQU $1A ; FIRST (DISK) ADDRESS OF BITMAP (S) 

VCBCMAP EQU $1C ; RELATIVE ADDRESS OF BIT MAP WITH SPACE (ADD TO VCBDMAP) 

*VCBMNUM EQU $1D ; RELATIVE BIT MAP CURRENTLY IN MEMORY 

VCBOPNC EQU $1E ; CURRENT NUMBER OF OPEN FILES. 



$20 


CURRENT VCB IS 32 BYTES PER ENTRY 


(VER 


0) 





VOLUME NAME LENGTH BYTE 






1 


VOLUME NAME 






$10 


VOLUME'S DEVICE 






$11 


VOLUME STATUS. (80=FILES OPEN. 40= 


=DISK 


SWITCHED 


$12 


TOTAL BLOCKS ON THIS VOLUME 






$14 


NUMBER OF UNUSED BLOCKS 






$16 


ROOT DIRECTORY (DISK) ADDRESS 
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UU U i o / 


VCBSWAP 


EQU 


$1F 


ADR/ 1 6 










UUUlOo 


* 








uuuioy 


* 


FILE CONTROL 


BLOCK INDEX CONSTANTS 


UUUloU 


* 








A A A 1 C'\ 

UUUlbl 


FCBREFN 


EQU 





A A A 1 CO 

UU Ui bz 


FCBDEVN 


EQU 


1 


A A A 1 ^ 

UUUl DO 


*FCBHEAD EQU 2 


; BLOCK 


ADDRESS OF FILE 


A A A 1 A 


*FCBDIRB EQU 4 


; BLOCK 


ADDRESS OF FILE 


A A A 1 C 

UU Ui bo 


FCBENTN 


EQU 


6 


000166 


FCBSTYP 


EQU 


7 


A A A T iC"7 

UUUlb / 


FCBSTAT 


EQU 


8 


A A A T CO 

UUUlbo 


FCBATTR 


EQU 


9 


A A A T cn 

uuuiby 


FCBNEWL 


EQU 


$A 


A A A 1 "7 A 

UUUl /u 


FCBBUFN 


EQU 


$B 


000171 


FCBFRST 


EQU 


$C 


A A A 1 '"7 O 

UU U i / z 


FCBIDXB 


EQU 


$E 


000173 


FCBDATB 


EQU 


$10 


A A A T 1 A 

UUUl /4 


FCBMARK 


EQU 


$12 


000175 


FCBEOF 


EQU 


$15 


A A A T '7 f 

UUUl lb 


FCBUSE 


EQU 


$18 


000177 


FCBSWAP 


EQU 


$1A 


A A A T TO 

UUUl /o 


FCBLEVL 


EQU 


$1B 


A A A 1 "7 A 

UUUl /y 


FCBDIRTY 


EQU 


$1C 


A A A 1 Q A 
UUUloU 






PAGE 




A A A 1 O 1 

UUUloi 


* 








A A A 1 OA 
UU U 1 OZ 




ZERO PAGE STUFF 




A A A 1 O O 

UU U 1 o J 










A A A 1 OA 

UUUlo4 


PAR 


EQU 


$A0 


A A A T O C 

UUUloo 


COMMAND 


EQU 


PAR 


A Am 
UUUloD 


C 


DNAMP 


EQU 


PAR+1 


A A A T O "7 

UUUlo / 


C 


PATH 


EQU 


PAR+1 


A A A 1 O O 

UUUloo 


C 


REFNUM 


EQU 


PAR+1 


A A A 1 Q Q 

UU UI o y 


C 


ISNEWL 


EQU 


PAR+2 


A A A 1 A A 

UUUl yu 


C 


OUTEOF 


EQU 


PAR+2 


A A A 1 A 1 

uuuiyi 


C 


BASE 


EQU 


PAR+2 


A A A T AO 

uuuiyz 


C 


MRKPTR 


EQU 


PAR+2 


A A A 1 AO 

uuuiyj 


C 


OUTBUF 


EQU 


PAR+2 


A A A T Ci A 

uuuiy4 


C 


NWPATH 


EQU 


PAR+3 


A nm Q c; 
uuuiyo 


C 


FILIST 


EQU 


PAR+3 


A A A T A 

uuuiyb 


C 


NEWL 


EQU 


PAR+3 


A A A 1 A"7 

uuuiy / 


C 


OUTVOL 


EQU 


PAR+3 


A A A 1 Q Q 

UU ui y o 


C 


OUTREF 


EQU 


PAR+3 


A A A 1 AO 

UUUl yy 


C 


XL I ST 


EQU 


PAR+3 


A A A O A A 

UUUzUU 


C 


MAXPTH 


EQU 


PAR+3 


A A A O A 1 

UUUzUl 


C 


MARK 


EQU 


PAR+3 


A A A O AO 

UUUzUz 


C 


NEWEOF 


EQU 


PAR+3 


A A A O A O 

UUUzU J 


C 


BYTES 


EQU 


PAR+4 


A A A O A /I 

UUUzU4 


C 


FILSTLN 


EQU 


PAR+5 


A A A O A C 

UUUzUo 


C 


OUTBLK 


EQU 


PAR+5 


A A A O A /" 

UUUzUb 


C 


OPLIST 


EQU 


PAR+5 


A A A A "7 
UUUZU / 


C 


XLEN 


EQU 


PAR+5 


A A A O A O 

UU UZ U o 


C 


FILID 


EQU 


PAR+6 


A A A O A n 

UU UZ u y 


C 


OUTCNT 


EQU 


PAR+6 


A A A O 1 A 

UU UZ 1 u 


c 


OPLSTLN 


EQU 


PAR+7 


A A A O T 1 

UUUzl 1 


c 


AUXID 


EQU 


PAR+7 


A A A O T O 

UUUzlz 


c 


STOR 


EQU 


PAR+9 


A An 1 T 

UUUzl J 


c 


EOFLL 


EQU 


PAR+$A 


A A A O T A 

UUUzlfl 


c 


EOFLH 


EQU 


PAR+$B 


A A A O T C 

UUUzlo 


c 


EOFHL 


EQU 


PAR+$C 


A A A 1 C 
UUUZl D 


DEBUPTR 


EQU 


FAK+^U 


A A A O T ^ 

UUUzl / 


C 


EOFHH 


EQU 


PAR+$D 


A A A O 1 O 

UUUzlo 


* 


C. SPARE EQU 


PAR+$E 




A A A O 1 O 

UU UZ 1 y 


* 








A A A O O A 

uuuzzu 


DEVICE 


EQU 


$C0 


A A A O A T 

UUUz^l 


DHPCMD 


EQU 


DEVICE 


A A A O A O 

UUUz^^z 


UNITNUM 


EQU 


DEVICE+1 


A A A A A 


DSTATREQ 


EQU 


DEVICE+2 


UUUzz4 


DBUFPL 


EQU 


DEVICE+2 


^1 M O 1 C 

UU Uzzo 


DBUFPH 


EQU 


DBUFPL+1 


n n n o 1 ^ 
UU UZZ b 


DSTATBFL 


EQU 


DEVICE+3 


000227 


DSTATBFH 


EQU 


DSTATBFL+1 


000228 


RQCNTL 


EQU 


DEVICE+4 


000229 


RQCNTH 


EQU 


RQCNTL+1 


000230 


BLOKNML 


EQU 


DEVICE+6 


000231 


BLOKNMH 


EQU 


BLOKNML+1 


000232 


BRDPTR 


EQU 


DEVICE+8 


000233 


* 








000234 


DVNAMP 


EQU 


DEVICE+1 


000235 


DVDNUM 


EQU 


DEVICE+3 


000236 


* 









$8X IF VOLUME SWAPPED; $00 IF UNSWAPPED WHERE X=LOW ORDER BYTE OF VCB 



; FILE REFERENCE NUMBER (POSITION SENSITIVE) 
; DEVICE (NUMBER) ON WHICH FILE RESIDES 
S DIRECTORY HEADER 
'S DIRECTORY 

ENTRY NUMBER WITHIN DIRECTORY BLOCK 
STORAGE TYPE - SEED, SAPLING, TREE, ETC. 
STATUS - INDEX/DATA/EOF/USAGE/TYPE MODIFIED. 
ATTRIBUTES - READ/WRITE ENABLE, NEWLINE ENABLE. 
NEW LINE TERMINATOR (ALL 8 BITS SIGNIFICANT) . 
BUFFER NUMBER 
FIRST BLOCK OF FILE 

BLOCK ADDRESS OF INDEX (0 IF NO INDEX) 
BLOCK ADDRESS OF DATA 
CURRENT FILE MARKER. 
LOGICAL END OF FILE. 

ACTUAL NUMBER OF BLOCKS ALLOCATED TO THIS FILE. 

$8N = SWAPPED, $00 = UNSWAPPED VOLUME ("N" = VCB ENTRY NUMBER) 
LEVEL AT WHICH THIS FILE WAS OPENED 
FCB MARKED AS MODIFIED 



NOTE SAME AS BELOW 



TO PASS BACK BUSY, WRITE PROTECT, READ PROTECT. 



(AND 9) 



USED FOR 'VOLUME' TO CALL 
'GET.DNUM' IN DEVICE MANAGER. 
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000237 


SISBPH 


EQU 


S I STER+DBUFPH 


000238 


SISDSTAT 


EQU 


SISTER+DSTATBFH 


000239 


SSBRDPH 


EQU 


SISTER+BRDPTR+1 


000240 








000241 




PAGE 




000242 








000243 


* ZERO PAGE 


TEMPORARI E S 




000244 








000245 


ZTEMPS 


EQU 


SBO 


000246 


PATHNML 


EQU 


ZTEMPS 


000247 


PATHNMH 


EQU 


PATHNML+1 


000248 


USRBUF 


EQU 


ZTEMPS 


000249 


TPATH 


EQU 


ZTEMPS+2 


000250 


WRKPATH 


EQU 


ZTEMPS+4 


000251 


TINDX 


EQU 


ZTEMPS+2 


A A A O C A 

000252 


DRBUFPL 


EQU 


ZTEMPS+4 


000253 


DRBUFPH 


EQU 


DRBUFPL+1 


000254 


VCBPTR 


EQU 


ZTEMPS+6 


000255 


BMADR 


EQU 


ZTEMPS+8 


000256 


FCBPTR 


EQU 


ZTEMPS+$A 


000257 


DATPTR 


EQU 


ZTEMPS+$C 


A A A c n 

000258 


POSPTR 


EQU 


ZTEMPS+$E 


000259 








000260 


MAXTEMPS 


EQU 


$F 


000261 


SISTEMPS 


EQU 


SISTER+ZTEMPS 


000262 


SSTIDXH 


EQU 


SISTER+TINDX+1 


000263 


SISPATH 


EQU 


S I STER+C . PATH+ 1 


000264 


SSNWPATH 


EQU 


SISTER+C .NWPATH+1 


000265 


SISUSRBF 


EQU 


SISTER+USRBUF+1 


000266 


SISOUTBF 


EQU 


SISTER+C . OUTBUF+1 


000267 


SISTPATH 


EQU 


SISTER+TPATH+1 


000268 


SISBMADR 


EQU 


SISTER+BMADR+1 


000269 


SISFCBP 


EQU 


SISTER+FCBPTR+1 


000270 


SISDATP 


EQU 


SISTER+DATPTR+1 


000271 


SISPOSP 


EQU 


SISTER+POSPTR+1 


000272 








000273 








000274 


* ADDRESSES 






000275 


* 






A A A '^ 

000276 


PATHBUF 


EQU 


$1000 


000277 


VCB 


EQU 


$1100 


000278 


GBUF 


EQU 


$1200 


000279 


* 






000280 


* INITIALIZATION EQUATES 




000281 








000282 


BFMFCBl 


EQU 


$1C 


000283 


BFMFCB2 


EQU 


$1D 


000284 


BMAPAGE 


EQU 


<$B800 


000285 


BMBPAGE 


EQU 


<$BAOO 


000286 


FCBZPP 


EQU 


FCBPTR 


000287 


* 






A A A O O O 


* 






000289 


* 






000290 




PAGE 




000291 




DSECT 




000292 




ORG 


$0 


000293 


DATBLKL 


DS 


1 


000294 


DATBLKH 


DS 


1 


000295 


IDXADRL 


DS 


1 


000296 


IDXADRH 


DS 


1 


000297 


REQL 


DS 


1 


000298 


REQH 


DS 


1 


000299 


INDXBLK 


DS 


1 


000300 


LEVELS 


DS 


1 


000301 


TOTENT 


DS 


1 


000302 


ENTCNTL 


DS 


1 


000303 


ENTCNTH 


DS 


1 


000304 


CNTENT 


DS 


1 


000305 


NOFREE 


DS 


1 


000306 


BMCNT 


DS 


1 


000307 


SAPTR 


DS 


1 


000308 


TREPTR 


DS 


1 


000309 


TLINK 


DS 


2 


000310 


FLINK 


DS 


2 


000311 


PATHCNT 


DS 


1 


000312 


PFIXPTR 


DS 


2 


000313 


BMPTR 


DS 


1 


000314 


BASVAL 


DS 


1 


000315 


HALF 


DS 


1 


000316 


* 






000317 


* 







NOTE: THIS IS $100 BYTES LONG. 
THRU $13FF 



FCB PAGE 1 ADDR 
FCB PAGE 2 ADDR 
BIT MAP A ADDR 
BIT MAP B ADDR 



(THE FOLLOWING DO NOT NEED TO BE ON ZERO PAGE. 7/16/80 JRH.) 



DISK ADDRESS OF INDEX BLOCK 
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000318 




PAGE 








000319 












000320 


* BIT MAP INFO 


TABLES (A 


& 


B) 




000321 












000322 


BMTABSZ 


EQU 




$6 




000323 


BMTAB 


DS 




1 




000324 


BMBUFBNK 


DS 




1 




000325 


BMASTAT 


DS 




1 




000326 


BMADEV 


DS 




1 




000327 


BMAMADR 


DS 




1 




000328 


BMADADR 


DS 




2 




000329 


BMACMAP 


DS 




1 


SIMILAR TO VCBCMAP 


000330 


BMBSTAT 


DS 




1 




000331 


BMBDEV 


DS 




1 




A A O O O 

000332 


BMBMADR 


DS 




1 




A A A t) O 

000333 




DS 




2 


BMBDADR 


000334 




DS 




1 


BMBCMAP 


000335 












000336 


FCBADDRH 


DS 




1 


FILE CONTROL BLOCK'S BUFFER ADDRESS. 


000337 


FCBANKNM 


DS 




1 


AND BANK (SISTER PAGE) BYTE. 


000338 


TPOSLL 


DS 




1 




000339 


TPOSLH 


DS 




1 




000340 


TPOSHI 


DS 




1 




000341 


RWREQL 


DS 




1 




000342 


RWREQH 


DS 




1 




000343 


BULKCNT 


DS 




1 




000344 


NLCHAR 


DS 




1 




000345 


NPATHDEV 


DS 




3 


FOR NEW PATHNAME DEVICE AND DIRECTORY HEADER ADDRESS 


000346 


lOACCESS 


DS 




1 


USED TO DETERMINE IF A CALL HAS BEEN MADE TO THE DISK DEVICE 


000347 


DEVNUM 


DS 




1 


CURRENT DEVICE TO BE ACCESSED. 


000348 


TOTDEVS 


DS 




1 


USED FOR ACCESSING DRIVES IN NUMERIC ORDER 


000349 


CMDTEMP 


DS 




1 


USED FOR TESTING REFNUM, TIME, AND DSKSWTCH (PRE) PROCESSING. 


000350 


DATELO 


DS 




1 


DATE AND TIME MUST RESIDE ON ZERO PAGE. 


000351 


DATE HI 


DS 




1 




000352 


TIMELO 


DS 




1 




000353 


TIMEHI 


DS 




1 




000354 


* 










000355 


DUPLFLAG 


DS 




1 


USED FOR DIFFERENCE BETWEEN VNFERR AND DUPVOL BY SYNPATH 


000356 


ZPGTEMP 


DS 




1 


A ONE-BYTE UNSTABLE TEMPORARY 


000357 


VCBENTRY 


DS 




1 


POINTER TO CURRENT VCB ENTRY 


000358 


* 










000359 




DEND 








000360 


* 










000361 




CHN 




PATH, 4, 1 




000362 












000363 


-k*-k-k*-k-k*-k-k*-k-k*-k 






*********************************************** 


000364 


* END OF APPLE 


/// SOS 1. 


3 


SOURCE CODE FILE: EQUATES 


000365 


********************************************************** 


000366 













End of File — Lines: 366 Characters: 13607 
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FILE: "SOS. FEBOl. 1982. TEXT" 



000001 

000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 



*********************************************************** 

* APPLE /// SOS 1.3 SOURCE CODE FILE: FEBOl. 1982 



*^******* 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



SL4 


DRl 


ASM 


SOSLDR . SRC , SOSLDR . OB J, 6 


1 


SL4 


DRl 


ASM 


INIT.SRC, INIT.OBJ, 6, 1 




SL4 


DRl 


ASM 


SYSGLOB . SRC , SYSGLOB . OBJ 


6,1 


SL4 


DRl 


ASM 


OPRMSG . SRC, OPRMSG . OBJ, 6 


1 


SL4 


DRl 


ASM 


BFM.INIT2.SRC,BFM.INIT2 


OBJ, 6,1 


SL4 


DRl 


ASM 


IPL.SRCl, IPL.OBJ, 6,1 




SL4 


DRl 


ASM 


UMGR.SRCUMGR.OBJ, 6, 1 




SL4 


DR2 


ASM 


DISK3.SRC, DISK3 .OBJ, 6,1 




SL4 


DR2 


ASM 


SYSERR. SRC, SYSERR.OBJ, 6 


1 


SL4 


DR2 


ASM 


SCMGR.SRC, SCMGR.OBJ, 6, 1 




SL4 


DR2 


ASM 


FMGR . SRC , FMGR . OB J , 6 , 1 




SL4 


DR2 


ASM 


CFMGR. SRC, CFMGR.OBJ, 6, 1 




SL4 


DR2 


ASM 


DEVMGR . SRC , DEVMGR . OBJ, 6 


1 


SL4 


DR2 


ASM 


BUFMGR . SRC , BUFMGR . OBJ, 6 


1 


SL4 


DR2 


ASM 


MEMMGR . A . SRC , MEMMGR . OBJ 


6,1 


END 











****************** 



* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: FEBOl. 1982 

************************************************************************* 



End of File 



Lines: 25 Characters: 1004 
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FILE : " SOS . FMGR . SRC . TEXT " 



000001 


******************************************************************** 




* APPLE /// SOS 


1.3 SOURCE CODE FILE: FMGR. SRC 


000003 








000004 


* ASSEMBLER: APPLE ] [ 65 


)2 ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 








000006 




SBTL 


"SOS 1.1 FILE MANAGER" 


000007 




REL 




000008 




INCLUDE 


SOSORG, 6,1,254 


000009 




ORG 


ORGFMGR 


000010 


ZZORG 


EQU 


* 


A A A A T T 

000011 




MSB 


OFF 


000012 




REP 


60 


000013 


* COPYRIGHT (C) 


APPLE COMPUTER INC. 1980 


000014 


* 


ALL 


RIGHTS RESERVED 


000015 




REP 


60 


A A A A T 

000016 


* 






000017 


* FILE MANAGER 


(VERSION 


=1.10 ) 


000018 


* 


(DATE 


= 8/04/81) 


A A A A T A 

ooooiy 


* 






A A A A O A 

OOOOzO 


* THIS MODULE IS ENTERED 


FROM THE SYSTEM CALL MANAGER, AND 


000021 


* IS RESPONSIBLE FOR SWITCHING TO EITHER THE BLOCK FILE 


000022 


* MANAGER, OR THE CHARACTER FILE MANAGER. 


000023 








000024 




REP 


60 


A A A A O IT 

000025 








A A A A O 

000026 




ENTRY 


FMGR 


A A A A O 

000027 




ENTRY 


LEVEL 


A A A A O n 

000028 








A A A A O A 

00002y 






D t MGK 


000030 




EXTRN 


CFMGR 


000031 




EXTRN 


SYSERR 


000032 




EXTRN 


SERR 


000033 




EXTRN 


BAD PATH 


A A A A O A 

000034 




EXTRN 


FNFERR 


A A A A O IT 

000035 




EXTRN 


LVLERR 


000036 








000037 


F . TPARMX 


EQU 


$A0 ; LOG OF FILE SYSTEM 


000038 


OPEN 


EQU 


$8 


000039 


CLOSE 


EQU 


$C 


000040 


SETLEVEL 


EQU 


$12 


000041 


GETLEVEL 


EQU 


$13 


000042 


F . REQCODE 


EQU 


F. TPARMX 


A A A A /I 

000043 


F. LEVEL 


EQU 


F.TPARMX+$1 


000044 


PATHNAME 


EQU 


F.TPARMX+$1 


000045 


REFNUM 


EQU 


F.TPARMX+$1 


A A A A /I /" 

000046 


PERIOD 


EQU 


$2E 


000047 


LEVEL 


DFB 


$1 


000048 




PAGE 




000049 




REP 


60 


000050 


* 






000051 


* FILE MANAGER 






A A A A C O 

000052 


* 






A A A A C 

000053 




REP 


60 


000054 


FMGR 


EQU 


* 


000055 


* 






A A A A r 

000056 




LDA 


F . REQCODE 


000057 




CMP 


#OPEN 


000058 




BCC 


FMGROlO 


000059 




BEQ 


FMGR020 


000060 




CMP 


♦CLOSE 


A A A A ^ T 

000061 




BCC 


FMGR030 


000062 




BEQ 


FMGR040 


000063 




CMP 


tSETLEVEL 


000064 




BEQ 


SLEVEL 


000065 




CMP 


#GETLEVEL 


000066 




BEQ 


GLEVEL 


000067 


* 






000068 


FMGROlO 


JMP 


BFMGR ; EXIT 


000069 


* 






000070 


FMGR020 


LDY 


#1 


000071 




LDA 


(PATHNAME) , Y 


000072 




CMP 


♦PERIOD 


000073 




BNE 


FMGROlO 


000074 




JSR 


CFMGR 


000075 




BCC 


FMGR024 


000076 




LDA 


SERR 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 



FMGR024 
FMGR026 



FMGR030 
FMGR031 



FMGR040 



ZZEND 
ZZLEN 



CMP 
BEQ 
RTS 

LDA 
STA 

JMP 

LDA 
BPL 
JMP 

LDA 
BNE 
JSR 

JMP 

LDA 
BEQ 
CMP 
BCS 
STA 
RTS 
LDA 
JSR 

LDY 
LDA 
STA 
RTS 

LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



tFNFERR 
FMGR026 



#0 

SERR 

BFMGR 

REFNUM 

FMGROlO 

CFMGR 

REFNUM 

FMGR031 

BFMGR 

CFMGR 

F . LEVEL 
LVL.ERR 
#4 

LVL.ERR 
LEVEL 

#LVLERR 

SYSERR 

#0 

LEVEL 

(F. LEVEL) ,Y 



ON 
* 

ZZEND-ZZORG 
ZZLEN-LENFMGR 
2, "SOSORG 



; EXIT 



; EXIT 



; CLOSE (0) 
; EXIT 



FILE IS INCORRECT FOR FMGR" 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: FMGR. SRC 

************************************************************************* 



End of File 



Lines: 119 Characters: 2884 
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FILE: "SOS. FNDFIL. TEXT" 



000001 


********************************************************** 


000002 


* a PPT TT III 
rtJrJrijili III 




CODE FILE: FNDFIL 




000003 








000004 


AobJliMJiSijiliK ; 


TV DDT 17 1 r R n o 


ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 










000006 










000007 


* 








000008 


* 








000009 


■pTwnirTT TT 
J: XiNJJr XIjCj 




LOOKFILE 


SEE IF FILE EXISTS 


000010 






NOFIND 


BRANCH IF AN ERROR WAS ENCOUNTERED 


000011 






H . ENTLN 


MOVE ENTIRE ENTRY INFO TO A SAFE AREA 


000012 






(DRBUFPL) , Y 




000013 




STA 


DFIL+D . STOR, Y 




000014 




DEY 






000015 






MOVENT 1 




000016 




LDA 


#0 


TO INDICATE ALL IS WELL 


000017 








RETURN CONDITION CODES . 


000018 










000019 


* 








000020 


* 








000021 






PREPROOT 


FIND VOLUME AND SET UP OTHER BORING STUFF 


000022 






FNDERR 


PASS BACK ANY ERROR ENCOUNTERED 


000023 






#0 


TEST TO SEE IF ONLY ROOT WAS SPECIFIED. 


000024 




LDA 


(PATHNML) , Y 




000025 






LOOKFILO 


BRANCH IF MORE THAN ROOT. 


000026 




LDA 


#GBUF/256 


OTHERWISE, REPORT A BADPATH ERROR 


000027 




CTTA 


DRBUFPH 


(BUT FIRST CREATE A PHANTOM ENTRY FOR OPEN) 


000028 




LDA 


#4 




000029 






DRBUFPL 




000030 






#D. AUXID 


FIRST MOVE IN ID, AND DATE STUFF. 


000031 






(DRBUFPL) , Y 




000032 




OTA 


DFIL, Y 




000033 










000034 




rpv 


#D.CREDT-1 




000035 






PHANTMl 




000036 




LDA 


ROOTSTUF-D. FILID, Y 




000037 






DFIL, Y 




000038 




DEY 






000039 






#D. FILID-1 




000040 




BNE 


PHANTM2 




000041 




LDA 


#DIRTYP*$10 


FAKE DIRECTORY FILE 


000042 






DFIL+D . STOR 




000043 




LDA 


#BADPATH 


(CARRY IS SET) 


000044 










000045 


* 








000046 


prinTciTrTTT 




0/2,0,4 




000047 






0,0,8,0 




000048 










000049 


T nriK'TTT n 

±jW-Ji\r XJ-iU 


LDA 


#0 


RESET FREE ENTRY INDICATOR 


000050 




STA 


NOFREE 




000051 








INDICATE THAT THE DIRECTORY TO BE SEARCHED HAS 


000052 




LDA 


#0 


RESET ENTRY COUNTER 


000053 






TOTENT 




000054 






LOOKNAM 


LOOK FOR NAME POINTED TO BY ' PATHNML ' 


000055 






NAMFOJMP 


BRANCH IF NAME WAS FOUND. 


000056 




LDA 


ENTCNTL 


HAVE WE LOOKED AT ALL OF THE 


000057 






TOTENT 


ENTRIES IN THIS DIRECTORY? 


000058 






DCRENTH 


MAYBE, CHECK HI COUNT. 


000059 




BNE 


L00KFIL2 


NO, READ NEXT DIRECTORY BLOCK 


000060 




CMP 


ENTCNTH 


HAS THE LAST ENTRY BEEN LOOKED AT (ACC=0) 


000061 




BEQ 


ERRFNF 


YES, GIVE 'FILE NOT FOUND' ERROR. 


000062 




BNE 


L00KFIL2 


BRANCH ALWAYS. 


000063 


DCRENTH 


DEC 


ENTCNTH 


SHOULD BE AT LEAST 1 


000064 




BPL 


L00KFIL2 


(THIS SHOULD BE BRANCH ALWAYS . . . ) 


000065 


ERRDIR 


LDA 


#DIRERR 


REPORT DIRECTORY MESSED UP. 


000066 


FNDERR 


SEC 




INDICATE ERROR HAS BEEN ENCOUNTERED. 


000067 




RTS 






000068 


NAMFOJMP 


JMP 


NAMFOUND 


AVOID BRANCH OUT OF RANGE 


000069 


* 








000070 




PAGE 






000071 


L00KFIL2 


STA 


ENTCNTL 


KEEP RUNNING COUNT 


000072 




LDA 


#GBUF/256 


RESET INDIRECT POINTER 


000073 




STA 


DRBUFPH 




000074 




LDA 


GBUF+2 


GET LINK TO NEXT DIRECTORY BLOCK 


000075 




BNE 


NXTDIRO 


(IF THERE IS ONE) 


000076 




CMP 


GBUF+3 


ARE BOTH ZERO, I.E. NO LINK? 
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000077 






BEQ 


ERRDIR 


; IF SO, THEN NOT ALL ENTRIES WERE ACCOUNTED 


000078 


NXTDIRO 


STA 


BLOKNML 




000079 






LDA 


GBUF+3 




000080 






STA 


BLOKNMH 




000081 






JSR 


RDGBUF 


; GO READ THE NEXT LINKED DIRECTORY IN. 


000082 






BCC 


LOOKFILl 


; BRANCH IF NO ERROR. 


000083 






RTS 




; RETURN ERROR (IN ACCUMULATOR) . 


000084 


TELFREEX 


JMP 


TELFREE 




000085 


* 










000086 


FNFOX 


JMP 


FNFO 


; AVOID BRANCH OUT OF RANGE 


000087 


* 










000088 


CFLAG 


DS 


1 


; AM I CREATING? 


000089 


TTSAVE 


DS 


2 


; CURRENT BLOCK ADDR 


000090 


BLOKSAVE 


DS 


2 


; PARENT DIR ADDR 


000091 


* 










000092 


ERRFNF 


LDA 


NOFREE 


; WAS ANY FREE ENTRY FOUND? 


000093 






BNE 


FNFOX 




000094 






LDA 


GBUF+2 


; TEST LINK 


000095 






BNE 


TELFREEX 




000096 






CMP 


GBUF+3 


; IF BOTH ARE ZERO/ THEN GIVE UP 


000097 






BNE 


TELFREEX 


; BRANCH IF NOT LAST DIR BLOCK 


000098 






LDA 


CFLAG 


; DOING A CREATE? 


000099 






BEQ 


FNFOX 


; NO, SIMPLY REPORT NOT FOUND 


000100 












000101 




EXTEND THE 


DIRECTORY BY 


A BLOCK 




000102 












000103 






LDA 


BLOKSAVE 


; BUT NOT 


000104 






ORA 


BLOKSAVE+1 


; IF A ROOT DIRECTORY! 


000105 






BEQ 


FNFOX 


; FORU BLOCKS HARD CODED 


000106 






LDA 


TTLINK 


; FETCH CURRENT DIRECTORY 


000107 






STA 


TLINK 


; ADDR (GBUF) 


000108 






LDA 


TTLINK+1 


; AND ALLLOCATE A NEW 


000109 






STA 


TLINK+1 


; BY LINKING TO CURRENT 


000110 






JSR 


DIRWRT 




000111 






BCS 


FNFO 


; RATS! NO SPACE SAY "DIRFULL" 


000112 












000113 




SAVE CURRENT BLOCK ADDR 






000114 












000115 






LDA 


TTLINK 




000116 






STA 


TTSAVE 




000117 






LDA 


TTLINK+1 




000118 






STA 


TTSAVE+1 




000119 












000120 




FETCH DESCENDENT 






000121 












000122 






LDA 


GBUF+2 




000123 






STA 


BLOKNML 




000124 






LDA 


GBUF+3 




000125 






STA 


BLOKNMH 




000126 






JSR 


ZERGBUF 


; INIT THE NEW DIR BLOCK 


000127 












000128 




AND INSERT 


BACK POINTER 






000129 




TO "CURRENT 


BLOCK" 






000130 












000131 






LDA 


TTSAVE 




000132 






STA 


GBUF 




000133 






LDA 


TTSAVE+1 




000134 






STA 


GBUF+1 




000135 






JSR 


WRTGBUF 




000136 






BCS 


ERTS 




000137 


* 










000138 




UPDATE DIR' 


S HEADER IN 


PARENT 




000139 


* 










000140 






LDA 


BLOKSAVE 




000141 






STA 


BLOKNML 


; PREPARE TO READ PARENT 


000142 






LDX 


BLOKSAVE+1 




000143 






STX 


BLOKNMH 




000144 






JSR 


RDGBUF 


; FETCH PARENT 


000145 






LDY 


#D . USAGE 


; BUMP BLOCKS USED BY HEADER 


000146 






LDA 


(DEBUPTR) , Y 




000147 






SEC 






000148 






ADC 


#0 


; BY JUST ONE BLOCK 


000149 






STA 


(DEBUPTR) ,Y 




000150 






INY 






000151 






LDA 


(DEBUPTR) ,Y 


; TWO BYTE BLOCKS USED 


000152 






ADC 


#0 




000153 






STA 


(DEBUPTR) ,Y 




000154 






LDY 


#D.E0F+1 


; INCREASE EOF BY $200 


000155 






LDA 


(DEBUPTR) ,Y 




000156 






CLC 






000157 






ADC 


#2 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000195 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 



ERTS 
FNFl 



*NOW CHANGE 



ERRCOMP 

NONAME 

FNDERRl 



MOVHEDO 
MOVHEDl 



STA 
INY 
LDA 
ADC 
STA 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
JMP 

STA 
LDA 

STA 
LDA 
STA 
STA 
LDY 
LDA 
TAY 
INY 
LDA 
SEC 
BEQ 
LDA 
RTS 
LDA 
RTS 
PAGE 

LDA 
SEC 
ADC 
TAY 
CLC 
LDA 
BEQ 
THE PATHNAME 
STY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
AND 
CMP 
BNE 
LDY 
LDA 
STA 
INY 
STA 
LDA 
STA 
STA 
JSR 
BCS 
LDA 
STA 
LDA 
STA 
LDA 
BEQ 
LDA 
EQU 
SEC 
RTS 
JSR 
JMP 

LDX 

LDA 
STA 
DEX 



(DEBUPTR) , Y 

(DEBUPTR) , Y 
#0 

(DEBUPTR) , Y 
WRTGBUF 

TTSAVE+1 

BLOKNMH 

TTSAVE 

BLOKNML 

RDGBUF 

ERRFNF 

D.ENTBLK 
GBUF+3 
D.ENTBLK+1 
#1 

D . ENTNUM 

NOFREE 

#0 

(PATHNML) , Y 



(PATHNML) , Y 



FNFl 

fPATHNOTFND 



#FNFERR 



(PATHNML) , Y 



PATHBUF, Y 
FILFOUND 
POINTER TO POINT AT 
PATHNML 
DRBUFPL 
DEBUPTR 
DRBUFPH 
DEBUPTR+1 
BLOKNML 
BLOKSAVE 
BLOKNMH 
BLOKSAVE+1 
#D.STOR 
(DRBUFPL) , Y 
#$F0 

#DIRTYP*16 
ERRPATHl 
tD.FRST 
(DRBUFPL) ,Y 
BLOKNML 

D.HEAD 
(DRBUFPL) , Y 

BLOKNMH 

D.HEAD+1 

RDGBUF 

FNDERRl 

GBUF+HCENT+4 

ENTCNTL 

GBUF+HCENT+5 

ENTCNTH 

GBUF+HCMP+4 

MOVHEAD 

tCPTERR 



MOVHEDO 
LOOKFILO 

#$A 

GBUF+HCRDT+4,X 
H.CREDT,X 



REWRITE PARENT DIR BLOCK 
REFETCH CURRENT DIR BLOCK 



BACK FROM THE SHADOWS AGAIN 

VOILA! WE HAVE EXTENDED THE DIRECTORY! 



ASSUME FIRST ENTRY OF NEXT BLOCK 
IS FREE FOR USE. 



MARK D. ENTNUM AS VALID (FOR CREATE) 
TEST FOR 'FILE NOT FOUND' VERSUS 'PATH NOT FOUND' 



IF NON-ZERO THEN 'PATH NOT FOUND' 

IN EITHER CASE, INDICATE ERROR. 



REPORT NO SUCH PATH. 
REPORT FILE NOT FOUND. 



; (Y=0) 

; TEST FOR LAST NAME IN PATH 

; IF ZERO, THEN THAT WAS LAST NAME 

; TO INDICATE SUCCESS 



THE NEXT NAME IN THE PATH 



; SAVE PARENTS 
; ENTRY POINTER 



IN CASE ENTRY ON PAGE 2 
ADDRESS (DIR EXTEND) 



BE SURE THIS IS A DIRECTORY ENTRY 
HIGH NIBBLE WILL TELL 

IS IT A SUB-DIRECTORY? 
REPORT THE USER'S MISTAKE 

GET ADDRESS OF FIRST SUB-DIRECTORY BLOCK 

(NO CHECKING IS DONE HERE FOR A VALID 
BLOCK NUMBER. . . ) 
SAVE AS FILE'S HEADER BLOCK TOO. 



READ SUB-DIRECTORY INTO GBUF 
RETURN IMMEDIATELY ANY ERROR ENCOUNTERED. 
GET THE NUMBER OF FILES 
CONTAINED IN THIS DIRECTORY 



TEST BACKWARD COMPATIBILITY 

TELL THEM THIS DIRECTORY IS NOT COMPATABLE 



; MOVE INFO ABOUT THIS DIRECTORY 
; DO NEXT LOCAL PATHNAME 



; MOVE INFO ABOUT THIS DIRECTORY 
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000239 




BPL 


MOVHEDl 




000240 




RTS 






000241 










000242 




PAGE 






000243 










000244 










000245 


FILFOUND 


EQU 






000246 


ENTADR 


LDA 


H . MAXENT 


FIGURE OUT WHICH IS ENTRY NUMBER THIS IS. 


000247 




SEC 






000248 




SBC 


CNTENT 


MAX ENTRIES - COUNT ENTRIES + 1 = ENTRY NUMBER 


000249 




ADC 


#0 


(CARRY IS /WAS SET) 


000250 




STA 


D . ENTNUM 




000251 




LDA 


BLOKNML 




000252 




STA 


D . ENTBLK 




000253 




LDA 


BLOKNMH 


AND INDICATE BLOCK NUMBER OF THIS DIRECTORY. 


000254 




STA 


D . ENTBLK+1 




000255 




CLC 






000256 




RTS 






000257 










000258 


LOOKNAM 


LDA 


H . MAXENT 


RESET COUNT OF FILES PER BLOCK 


000259 




STA 


CNTENT 




000260 




LDA 


#GBUF/256 




000261 




STA 


DRBUFPH 




000262 




LDA 


#4 




0002 63 


LOKNAMl 


STA 


DRBUFPL 


RESET INDIRECT POINTER TO GBUF 


0002 64 




BCS 


L0KNAM2 


BRANCH IF THIS BLOCK CONTAINS A HEADER 


000265 




LDY 


#D. STOR 




000266 




LDA 


(DRBUFPL) , Y 


GET LENGTH OF NAME IN DIRECTORY 


000267 




BNE 


ISNAME 


BRANCH IF THERE IS A NAME. 


000268 




LDA 


NOFREE 


TEST TO SEE IF A FREE ENTRY HAS BEEN DECLARED. 


000269 




BNE 


L0KNAM2 


YES BUMP TO NEXT ENTRY 


000270 




JSR 


ENTADR 


SET ADDRESS FOR CURRENT ENTRY 


000271 




INC 


NOFREE 


INDICATE A FREE SPOT HAS BEEN FOUND 


000272 




BNE 


L0KNAM2 


BRANCH ALWAYS . 


000273 










000274 


ISNAME 


AND 


#$F 


STRIP TYPE (THIS IS CHECKED BY 'FILFOUND') 


000275 




INC 


TOTENT 


(BUMP COUNT OF VALID FILES FOUND) 


000276 




CMP 


(PATHNML) , Y 


ARE BOTH NAMES OF THE SAME LENGTH? 


000277 




BNE 


L0KNAM2 


NO, BUMP TO NEXT ENTRY 


000278 




TAY 






000279 


CMPNAME 


LDA 


(DRBUFPL) , Y 


COMPARE NAMES LETTER BY LETTER 


000280 




CMP 


(PATHNML) , Y 




000281 




BNE 


L0KNAM2 




000282 




DEY 




HAVE ALL LETTERS BEEN COMPARED? 


000283 




BNE 


CMPNAME 


NO, CONTINUE . . 


000284 




CLC 




BY GOLLY, WE GOT US A MATCH! 


000285 




RTS 






000286 










000287 


L0KNAM2 


DEC 


CNTENT 


HAVE WE CHECKED ALL POSSIBLE ENTRIES IN THIS BLOCK? 


000288 




BEQ 


NONAME 


YES, GIVE UP. 


000289 




LDA 


H . ENTLN 


ADD ENTRY LENGTH TO CURRENT POINTER 


A A A O A A 

0002 90 




CLC 






000291 




ADC 


DRBUFPL 




000292 




BCC 


LOKNAMl 


BRANCH IF WE'RE STILL IN THE FIRST PAGE. 


000293 




INC 


DRBUFPH 


LOOK ON SECOND PAGE 


000294 




CLC 




CARRY SHOULD ALWAYS BE CLEAR BEFORE LOOKING AT NEXT 


A A A A A C 

000295 




BCC 


LOKNAMl 


BRANCH ALWAYS . . . 


000296 




PAGE 






000297 










000298 










000299 


PREPROOT 


JSR 


FINDVOL 


FIND CORRECT VOLUME AND DEVICE NUMBER 


000300 




BCC 


ROOTl 


BRANCH IF IT WAS FOUND. 


000301 


ROOTO 


JSR 


LOOKVOL 


OTHERWISE LOOK ON ALL DEVICES. 


000302 




BCS 


SRITZ 


CAN ' T FIND IT . 


000303 


ROOTl 


LDA 


#0 


ZERO OUT DIRECTORY TEMPS 


000304 




LDY 


#42 


(DECIMAL) 


000305 


CLRDSP 


STA 


D . DEV, Y 




000306 




DEY 






A A A O A T 

000307 




BPL 


CLRDSP 




A A A A A 

00030o 




LDY 


#VCBDEV 


SET UP DEVICE NUMBER 


000309 




LDA 


(VCBPTR) , Y 




000310 




STA 


DEVNUM 




000311 




STA 


D.DEV 


FOR FUTURE REFERENCE 


000312 




INY 






000313 




LDA 


(VCBPTR) , Y 


GET CURRENT STATUS OF THIS VOLUME 


000314 




STA 


V. STATUS 




000315 




LDY 


#VCBROOT 


GET BLOCK ADDRESS OF ROOT DIRECTORY TOO. 


000316 




LDA 


(VCBPTR) , Y 




000317 




STA 


BLOKNML 




000318 




STA 


D . HEAD 


PRESERVE AS HEADER 


000319 




INY 
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000320 




LDA 


(VCBPTR) , Y 




000321 




STA 


BLOKNMH 




A A O O O 




STA 


D.HEAD+1 




A A A O O 

000323 




JSR 


RDGBUF 


GO READ IN ROOT 


A A A O O A 

000324 




BCC 


ROOT 2 


BRANCH IF NO ERROR 


A A A O A IT 

000325 




PHA 




SAVE ERROR CODE 


A A A O 

000326 




LDY 


#VCBSTAT 


CHECK THIS BUGGER FOR AN OPEN FILE. 


000327 




LDA 


(VCBPTR) , Y 




000328 




ASL 


A 


(SHIFT OPEN STATUS INTO CARRY) 


A n n ri 
00032y 




PLA 




GET ERROR CODE AGAIN 


A A A t) A 

000330 




BCS 


ROOTERR 


BRANCH IF ERROR NEEDS TO BE REPORTED 


A A A O O 1 

000331 




BNE 


ROOTO 


OTHERWISE, LOOK ELSEWHERE (BRANCH ALWAYS) . 


000332 










A A A O O 

000333 


ROOT 2 


JSR 


CHKROOT 


VERIFY ROOT NAME 


A A A O O A 

000334 




BEQ 


ROOT 3 


BRANCH IF MATCHED. 


A A A O O IT 

000335 




LDY 


fVCBSTAT 


TEST FOR OPEN FILES ON THIS VOLUME BEFORE 


A A A t) 

000336 




LDA 


(VCBPTR) , Y 


LOOKING FOR IT ELSEWHERE. 


A A A t) O ^ 

000337 




BPL 


ROOTO 




A A A tJ t) O 

000338 




JSR 


USRREQ 


REQUEST USER MOUNT VOLUME 


A A A t) O A 

00033y 




BCC 


ROOTl 


USER SAID S/HE DID — CHECK IT 


A A A O /I A 

000340 




LDA 


#VNFERR 


REPORT VOLUME NOT FOUND ERR IF REFUSE TO INSERT 


A A A O /IT 

000341 


SRITZ 


RTS 






A A A O /I O 

000342 










A A A O A 

000343 




PAGE 






000344 


ROOT 3 


LDY 


#$F 


(NOTE: X CONTAINS THE LENGTH OF THE ROOT NAME) 


000345 


ROOT INFO 


LDA 


GBUF+HCRDT+3, Y 


SAVE HEADER INFO. 


000346 




STA 


V . STATUS, Y 




000347 




DEY 






000348 




BNE 


ROOT INFO 


LOOP TIL ALL 15 BYTES MOVED 


000349 




LDA 


H . FONT 




000350 




STA 


ENTCNTL 




A A A O C T 

000351 




LDA 


H. FCNT+1 




A A A O C O 

000352 




STA 


ENTCNTH 




A A A O C O 

000353 




TXA 




NOW THAT ROOT IS IDENTIFIED, ADJUST 


A A A t) r A 

000354 




SEC 




PATH NAME POINTER TO NEXT NAME IN THE PATH 


000355 




ADC 


PATHNML 




000356 




STA 


PATHNML 




000357 




CLC 




INDICATE NO ERROR 


A A A o c n 

000358 


ROOTERR 


RTS 






A A A O C A 

000359 










A A A O ^ A 

000360 










A A A O ^ T 

000361 


CHKROOT 


LDY 


#0 


GET LENGTH OF NAME 


A A A t) 

000362 




LDA 


( PATHNML ) , Y 




000363 




TAY 






000364 




TAX 




SAVE IN X FOR LATTER ADJUSTMENT TO PATH POINTER 


000365 




EOR 


GBUF+4 




000366 




AND 


#$F 


DOES PATHNAME HAVE SAME LENGTH AS DIRECTORY NAME? 


A A A O ^ T 

000367 




BNE 


NOTROOT 


BRANCH IF NOT 


A A A O ^ 

000368 


CKROOTl 


LDA 


( PATHNML ) , Y 


COMPARE CHARACTER BY CHARACTER 


A A A O ^ A 

000369 




CMP 


GBUF+4 , Y 




A A A O T A 

000370 




BNE 


NOTROOT 




000371 




DEY 






000372 




BNE 


CKROOTl 


LOOP UNTIL ALL CHARACTERS MATCH 


000373 


NOTROOT 


RTS 






000374 










000375 




PAGE 






A A A O T 

000376 


FINDVOL 


LDA 


#VCB/256 


SEARCH VCB FOR VOLUME NAME 


000377 




STA 


VCBPTR+1 




A A A O T n 

000378 




LDA 


#0 




000379 




STA 


D. DEV 




A A A t) A A 

000380 




STA 


VCBPTR 




000381 


FNDVOLl 


PHA 




SAVE LAST SEARCH POSITION 


000382 




TAX 






000383 




LDY 


#0 


(INDEX TO PATHNAME POINTER) 


000384 




LDA 


VCB, X 


GET LENGTH OF VOLUME NAME TO COMPARE 


A A A O A IT 

000385 




BEQ 


NXTVCB 


BRANCH IF VCB ENTRY IS EMPTY 


A A A O A 

000386 




CMP 


( PATHNML ) , Y 


ARE NAMES OF SAME LENGTH? 


000387 




BNE 


NXTVCB 


NO, INDEX NEXT VCB 


A A A O A n 

000388 




CLC 




SCAN NAME BACKWARDS 


A A A A A 

000389 




TAY 






000390 




TXA 






A A A n 1 
000391 




ADC 


VCB, X 




000392 




TAX 




NOW BOTH INDEXES POINT TO LAST CHARACTER OF THE NAMES 


000393 


VOLNAM 


LDA 


(PATHNML) , Y 




000394 




CMP 


VCB,X 




000395 




BNE 


NXTVCB 




000396 




DEX 






000397 




DEY 






000398 




BNE 


VOLNAM 


CHECK ALL CHARACTERS 


000399 




PLA 




SINCE A MATCH IS FOUND 


000400 




STA 


VCBPTR 


SET UP INDEX TO VCB ENTRY 
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000401 
000402 
000403 
000404 
000405 
000406 
000407 
000408 
000409 
000410 
000411 
000412 
000413 
000414 
000415 
000416 
000417 
000418 
000419 
000420 
000421 
000422 
000423 
000424 
000425 
000426 
000427 
000428 
000429 
000430 
000431 
000432 
000433 
000434 
000435 
000436 
000437 
000438 
000439 
000440 
000441 
000442 
000443 
000444 
000445 
000446 
000447 
000448 
000449 
000450 
000451 
000452 
000453 
000454 
000455 
000456 
000457 
000458 
000459 
000460 
000461 
000462 
000463 
000464 
000465 
000466 
000467 
000468 
000469 
000470 
000471 
000472 
000473 
000474 
000475 
000476 
000477 
000478 
000479 
000480 
000481 



LOOKVOL 
LOOKVOLl 



ENTVCB2 



L0KV0L2 



TAX 
LDA 
BEQ 
JSR 
BCC 
LDA 
RTS 
CLC 
RTS 

PLA 
CLC 
ADC 
BCC 
RTS 
PAGE 



LDX 
LDA 
STA 
DEX 
BPL 
STA 
INX 
INX 
STX 
LDA 
CMP 
BEQ 
STA 
JSR 
BCC 
LDA 
TAX 
LDA 
BEQ 
TXA 
CLC 
ADC 
BCC 
LDA 
EQU 
TAX 
LDA 
BEQ 
TXA 
CLC 
ADC 
BCC 
RTS 

LDY 
LDA 
BNE 
LDA 
SEC 
RTS 
PAGE 

STX 
LDA 
LDX 
BEQ 
LDY 
LDA 
BMI 
LDY 
LDA 
TAX 
DEY 
LDA 
JSR 
BCC 
LDA 
TAY 
STA 
BEQ 

JSR 
BCS 



VCB+VCBSWAP,X 

FOUNDVOL 

SWAPIN 

FOUNDVOL 

#XIOERROR 



#VCBSIZE 
FNDVOLl 



#12 

BLKDLST,X 
SCRTCH,X 

LOOKVOLl 
TOTDEVS 



SCRTCH 

SCRTCH,X 

D.DEV 

NXTDEV 

DEVNUM 

DEWCB 

LOKVOLl 

#0 

VCB,X 
FREEVCB 



#VCBSIZE 

ENTVCB 

#0 



VCB+VCBSTAT,X 
FREEVCB 



#VCBSIZE 
ENTVCB2 



#0 

(VCBPTR) , Y 

FOUNDVOL 

#DUPVOL 



VCBPTR 

#2 
#0 

GETROOT 
#VCBSTAT 

(VCBPTR) , Y 

SNSWIT 

#VCBR00T+1 

(VCBPTR) , Y 



(VCBPTR) , Y 
GETROTO 
L0KV0L2 
#0 

(VCBPTR) , Y 
NXTDEV 

LOGVCB 
NXTDEV 



BRANCH IF 

VOLUME NOT SWAPPED 

IF USER REALLY WANTS IT, THEN BRING IN IF SWAPPED 
BRANCH IF SUCCESS 
USER REFUSES TO MOUNT 

INDICATE VOLUME FOUND 



GET CURRENT INDEX AGAIN. 
VCB ENTRY LENGTH. 

BRANCH IF THER IS ANOTHER TO CHECK 
RETURN WITH CARRY SET TO SHOW FAILURE. 



(1) COUNT+ (12) DEVICE LIST 
EXTRN 

MY CHANGEABLE COPY 
WORK BACKWARDS SO 

ENTRY ZERO IS TOTAL DEVICES LISTED 
MAKE XREG = ZERO 



DON'T LOOK AGAIN ON A DRIVE THAT HAS BEEN CHECKED 
CHECK FOR DEVICE ALREADY LOGGED IN A VCB 
(CARRY CLEAR IF IT'S THERE) 

FIND A FREE VCB TO LOG THIS GUY IN 
INDEX TO NEXT VCB ENTRY 

FOUND A FREE SPOT. 

NOW INDEX TO NEXT, AND KEEP LOOKIN 

(EACH VCB ENTRY IS 32 BYTES) 
BRANCH IF MORE TO FIND 

SEE IF WE CAN REPLACE A DEVICE 

VCB HAS FILES OPEN? 
NO, USE IT! 



SEARCH NEXT VCB ENTRY 

FAILED TO FIND A FREE VCB ENTRY 

MAKE SURE VOLUME WAS ACTUALLY LOGGED IN 

AH, MADE IT. . . 

WELL, NOT QUITE, THIS VOLUME CAN'T BE LOGGED 



NOW THIS IS THE POINTER TO A FREE VCB 
ROOT DIRECTORIES ALWAYS AT BLOCK 2 

BRANCH ALWAYS 

MAKE SURE NO FILES ARE ACTIVE ON 
THE VOLUME BEFORE LOGGING IT IN. 
BRANCH IF FILES ACTIVE 

GET ADDRESS OF ROOT DIRECTORY 

HIGH FIRST. 

THEN LOW. 



BRANCH IF SUCCESSFULLY READ. 
OTHERWISE, TAKE THIS DEVICE OUT OF VCB 



(VOLUME ' OFF LINE ' ) 
BRANCH ALWAYS 



GO UPDATE VCB TO INCLUDE CURRENT VOLUME INFO 
IF NOT A SOS DISKETTE, SKIP TO NEXT DEVICE 
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000482 
000483 
000484 
000485 
000486 
000487 
000488 
000489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000508 
000509 
000510 
000511 
000512 
000513 
000514 
000515 
000516 
000517 
000518 
000519 
000520 
000521 
000522 
000523 
000524 
000525 
000526 
000527 
000528 
000529 
000530 
000531 
000532 
000533 
000534 
000535 
000536 
000537 
000538 
000539 
000540 
000541 
000542 
000543 
000544 
000545 
000546 
000547 
000548 
000549 
000550 
000551 
000552 
000553 
000554 
000555 
000556 
000557 
000558 
000559 
000560 
000561 
000562 



SNSWIT2 



SNSWIT3 



SNSWIT4 



SNSWIT5 
SNSWIT6 



DEWCB 
DVCBl 



DVCB2 



TSTDUPVOL 



JSR 
BEQ 

LDX 
CPX 
BCC 
LDA 
RTS 

EQU 
LDY 
LDA 
STA 
JSR 
LDA 
BEQ 
JSR 
BCC 
JSR 
BNE 
LDX 
JSR 
BCS 
JMP 
LDA 
BEQ 
TXA 
CLC 
ADC 
TAX 
BCC 
RTS 
LDA 
STA 
STX 
JSR 
BCS 
LDA 
BNE 
LDY 
LDA 
STA 
LDA 
JSR 
BCC 
LDA 
RTS 
LDY 
LDA 
STA 
JSR 
BCC 
JSR 
BCC 
LDA 
RTS 
LDA 
SEC 
RTS 
PAGE 

LDA 
RTS 



LDA 
TAX 
LDA 
BEQ 

LDA 
BNE 
LDA 
CMP 
BEQ 
TXA 
CLC 
ADC 
BCC 
RTS 



CHKROOT 
CHKVLOG 

SCRTCH 
TOTDEVS 
LOKDEVl 
#VNFERR 



#VCBDEV 
(VCBPTR) , 
DEVNUM 
TWRPROTl 
DSWGLOB 
NXTDEV 
VERFYVOL 
NXTDEV 
CHKROOT 
NXTDEV 
#0 

SNSWITl 

NXTDEV 

CHKVLOG 

VCB,X 

SNSWIT2 



#VCBSIZE 

SNSWITl 

#0 

DUPLFLAG 

VCBPTR 

LOGVCBl 

NONSOS 

DUPLFLAG 

SNSWIT6 

#VCBSWAP 

#1 

(VCBPTR) , Y 

DEVNUM 
SWAPOUT 
SNSWIT3 
#XIOERROR 

#VCBSWAP 
#0 

(VCBPTR) , Y 
VERFYVOL 

SNSWIT5 
USRREQ 
SNSWIT4 
#VNFERR 

#DUPVOL 



#NOTSOS 



#0 

VCB,X 
DVCB2 

VCB+VCBSWAP,X 
DVCB2 

VCB+VCBDEV, X 

DEVNUM 

FOUNDEV 



#VCBSIZE 
DVCBl 



GO COMPARE TO SEE IF WE FOUND WHAT WE'RE 
LOOKING FOR. . . 



LOOK AT OTHER DEVICES? 



YES. 

REPORT VOLUME NOT FOUND. 



SENSE DSWITCH 



MAKE SURE DEVICE NUMBER IS CURRENT 

USES DEVNUM 

DISK SWITCH GLOBAL 

BRANCH IF NO DISK SWITCH 

COMPARES VCBPTR VS. DEVNUM CONTENTS 

BRANCH IF DISK HAS NOT BEEN SWITCHED 

COMPARES PATHNML VS. GBUF 

IGNORE IF NOT WHAT WE ARE LOOKING FOR 

LOOK FOR FREE 

ANY ERRORS LOGGING IN THE NEW VOLUME 
MAKE SURE THE NEW VOLUME IS LOGGED 
VCB ENTRY 
BRANCH IF FOUND 



LOOK AT NEXT VCB AREA 

CAN'T BE LOGGED IN! 

TURN OFF DUPLICATE VOLUME FLAG 

PARTIALLY LOG IN THE NEW VOLUME 
OS MEANS NONSOS ERROR 
WAS IT A DUPLICATE VOLUME? 
BRANCH IF YES 

BY MAKING SWAP BYTE NON ZERO 

SO SWAPOUT WON'T AFFECT 

A REG PASSES DEVNUM TO SWAPOUT 

OLD ACTIVE MOUNT MUST BE SWAPPED 

USER REFUSED TO REPLACE OLD VOLUME 

NOW LOG IN THE NEW ALL THE WAY 



DON'T BOTHER TO ASK IF NEW VOLUME IS ALREADY MOUNTED 

BRANCH IF NEW VOLUME ON LINE 
ASK USER TO REMOUNT NEW VOLUME 
USER SAYS THEY DID: CHECK IT OUT 



TELL EM IT'S NOT A SOS DISK (COULD BE PASCAL) 
CARRY SHOULD ALREADY BE SET 



SCAN VCB FOR DEVICE SPECIFIED IN 'DEVNUM' 
FIRST TEST FOR VALID VCB. 



SWAPPED VOLUMES DON'T COUNT 

AS LOGGED IN 
GET DEVICE NUMBER 
TEST AGAINST REQUESTED DEVICE 
YES, SET UP A POINTER TO IT 
BUMP TO NEXT VCB 



BRANCH IF MORE TO LOOK AT. 

RETURN CARRY SET TO INDICATE NOT FOUND 



; PRESERVE CURRENT ADDR OF FREE VCB 
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000563 




LDA 


#0 


LOOK FOR A CURRENTLY LOGGED ON VOLUME OF THE SAME NAME . 


000564 


TSDUPVl 


STA 


VCBPTR 




000565 




JSR 


CMPVCB 




000566 




BCS 


TSDUPV2 


BRANCH IF NO MATCH. 


000567 




LDY 


#VCBSTAT 


TEST FOR ANY OPEN FILES . 


000568 




LDA 


(VCBPTR) , Y 




A A A C /'A 

00056y 




BMI 


FOUNDDUP 


TELL THE SUCKER HE CAN'T LOOK AT THIS VOLUME! 


000570 




LDA 


#0 


TAKE DUPLICATE OFF LINE IF NO OPEN FILES. 


000571 




TAY 






000572 




STA 


(VCBPTR) , Y 




000573 




BEQ 


NODUPVOL 


RETURN THAT ALL IS OK TO LOG IN NEW. 


000574 


TSDUPV2 


LDA 


VCBPTR 




000575 




CLC 






000576 




ADC 


#VCBS I ZE 


BUMP TO NEXT ENTRY . 


000577 




BCC 


TSDUPVl 




000578 


NODUPVOL 


EQU 






000579 


FOUNDEV 


CLC 






000580 


FNDDUPl 


STX 


VCBPTR 




000581 




RTS 






000582 










A A A C A 

000583 


FOUNDDUP 


STA 


DUPLFLAG 


A DUPLICATE HAS BEEN DETECTED. 


000584 




SEC 




INDICATE ERROR 


000585 




LDA 


VCBPTR 


SAVE ADDRESS OF DUPLICATE 


000586 




STA 


VCBENTRY 




000587 




BCS 


FNDDUPl 


BRANCH ALWAYS TAKEN 


000588 




PAGE 






000589 










000590 










000591 


LOGVCB 


LDY 


#VCBNML 


IS THIS A PREVIOUSLY LOGGED IN VOLUME 


000592 




LDA 


(VCBPTR) , Y 


(ACC=0?) 


000593 




BEQ 


LOGVCBl 


NO, GO AHEAD AND PREPARE VCB. 


000594 




JSR 


CMPVCB 


DOES VCB MATCH VOLUME READ? 


000595 




BCC 


VCBLOGD 


YES, DON'T DISTURB IT. 


000596 


LOGVCBl 


LDA 


#0 


ZERO OUT VCB ENTRY 


000597 




LDY 


#VCBSIZE-1 




000598 


ZERVCB 


STA 


(VCBPTR) , Y 




000599 




DEY 






000600 




BPL 


ZERVCB 




000601 




JSR 


TSTSOS 


MAKE SURE IT'S A SOS DISKETTE. 


000602 




BCS 


VCBLOGD 


IF NOT, RETURN CARRY SET. 


000603 




JSR 


TSTDUPVOL 


FIND OUT IF A DUPLICATE WITH OPEN FILES ALREADY EXISTS 


000604 




BCS 


NOTLOGO 




A A A A (T 

000605 




LDA 


GBUF+4 


MOVE VOLUME NAME TO VCB 


000606 




AND 


#$F 


STRIP ROOT MARKER 


000607 




TAY 






000608 




PHA 






000609 


MOVOLNM 


LDA 


GBUF+4, Y 




000610 




STA 


(VCBPTR) , Y 




A A A ^ T T 

000611 




DEY 






A A A ^ T O 

000612 




BNE 


MOVOLNM 




000613 




PLA 




GET LENGTH AGAIN 


000614 




STA 


(VCBPTR) , Y 


SAVE THAT TOO. 


000615 




LDY 


fVCBDEV 


SAVE DEVICE NUMBER ALSO. 


000616 




LDA 


DEVNUM 




000617 




STA 


(VCBPTR) , Y 




000618 




JSR 


CLEARBMS 


MARKS THIS DEVICES OLD BITMAPS AS INVALID (A REG PASSED) 


000619 




LDA 


GBUF+VTBLK+4 


AND TOTOL NUMBER OF BLOCKS ON THIS UNIT, 


000620 




LDY 


#VCBTBLK 




000621 




STA 


(VCBPTR) , Y 




000622 




LDA 


GBU F+VTBLK+ 5 




000623 




INY 






000624 




STA 


(VCBPTR) , Y 




000625 




LDY 


fVCBROOT 




000626 




LDA 


BLOKNML 


AND ADDRESS OF ROOT DIRECTORY 


A A A O ^ 

000627 




STA 


(VCBPTR) , Y 




000628 




INY 






000629 




LDA 


BLOKNMH 




000630 




STA 


(VCBPTR) , Y 




000631 




LDY 


#VCBDMAP 




000632 




LDA 


GBUF+VBMAP+ 4 


AND LASTLY, THE ADDRESS 


000633 




STA 


(VCBPTR) , Y 


OF THE FIRST BITMAP 


000634 




LDA 


GBUF+VBMAP+5 




000635 




INY 






000636 




STA 


(VCBPTR) , Y 




000637 




CLC 




INDICATE THAT IT WAS LOGGED IF POSIBLE. 


000638 


VCBLOGD 


RTS 






000639 


NOTLOGO 


JMP 


NOTLOGl 




000640 




PAGE 






000641 


CMPVCB 


LDA 


GBUF+4 


COMPARE VOLUME NAME IN VCB 


000642 




AND 


#$F 




000643 




LDY 


#VCBNML 


WITH NAME IN DIRECTORY 
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000644 




CMP 


(VCBPTR) , Y 


; ARE THEY SAME LENGTH 


000645 




BNE 


NOTSAME 




000646 




TAY 






000647 


VCBCMPl 


LDA 


GBUF+4 , Y 




000648 




CMP 


(VCBPTR) , Y 




000649 




BNE 


NOTSAME 




A A A C A 

OOOddO 




DEY 






A A A C T 

000651 




BNE 


VCBCMPl 




A A A C A 

000652 




CLC 




; INDICATE MATCH. 


000653 




RTS 






000654 










000655 


VERFYVOL 


LDX 


#0 


; READ IN ROOT DIRECTORY HEADER. 


000656 




LDA 


#2 




A A A ^ C 

000657 




JSR 


GETROTO 




A A A c n 

000658 




BCS 


NOVRFYl 


; PASS BACK WHATEVER OTHER ERROR OCCURS. 


A A A r A 

000659 




JSR 


CMPVCB 


; TEST ROOT WITH VOLUME NAME IN VCB. 


000660 




BCC 


NOVRFY 


; BRANCH IF ROOT MATCHES VCB 


000661 




LDA 


#0 


; OTHERWISE, PASS BACK FOREIGN VOLUME ERROR (SOS 


000662 


NOVRFY 


RTS 




; RETURN RESULTS IN CARRY. 


000663 


NOVRFYl 


LDA 


#VNFERR 


; NOTHING IN DRIVE 


A A A ^ /I 

000664 




RTS 






000665 










000666 


GETROTO 


STA 


BLOKNML 




A A A Z' T 

000667 




STX 


BLOKNMH 


; STORE ADDRESS AND READ IN ROOT 


A A A z' A 

000668 




JSR 


RDGBUF 




000659 




BCC 


RETR0T2 


; BRANCH IF SUCCESSFULLY READ. 


000670 


NOTSAME 


EQU 






A A A 1 

0006 /I 




SEC 




; INDICATE ERROR 


000672 


RE TROT 2 


RTS 






000673 










A A A Z" T A 

000674 


NOTLOGl 


LDX 


VCBPTR 


; LOAD THE VCB ADDRESS 


A A A Z^ T IT 

000675 




LDA 


VCBENTRY 


; OF THE DUPLICATE VOLUME 


A A A z' T Z" 

000676 




STA 


VCBPTR 




A A A 1^ "J "7 

OOOd / / 




STX 


VCBENTRY 


; AND SAVE THE FREE VCB S PACE ADDR 


000678 




LDY 


fVCBDEV 


; IS DUPLICATE ON SAME DEVICE? 


000679 




LDA 


DEVNUM 




000680 




CMP 


(VCBPTR) , Y 




000681 




BNE 


NOT LOG 2 


; BRANCH IF NOT 


A A A z' A A 

000682 




JSR 


SWAP IN 


; SWAP IN IF NECESSARY 


A A A Z^ A 

000683 




LDA 


#0 




000684 




STA 


DUPLFLAG 


; NO MORE DUPLICATE VOLUME STATUS 


A A A Z^ A IT 

000685 




LDA 


VCBPTR 


; MAKE CHKROOT WORK IN A MOMENT 


A A A z^ A 

000686 




STA 


PATHNML 


; THIS IS INCREDIBLY GROSS 


000687 


; BUT IS A RESULT OF 


MAKING VOLUME A SPECIAL 




000688 


; CASE OF 


SEARCHING 


ALL DEVICES FOR 




A A A O A 

000do9 


; A KNOWN 


VOLUME 






A A A z^ A A 

000690 




CLC 






A A A z' A T 

000691 




RTS 






A A A AO 

000092 


N0TL0G2 


LDA 


VCBENTRY 


; REACH HERE I F REAL DUPLI CATE VOLUME 


A A A Z^ A 

000693 




STA 


VCBPTR 


; RESOTRE FREE VCB PTR 


A A A Z^ A 

000694 




CLC 






A A A 1^ A C 

000d95 




RTS 




; DUPLICATE VOLUME PRETENDS TO BE NO ERROR 


000696 




PAGE 






000697 


* 








A A A A O 

000698 


TSFRBLK 


LDY 


#VCBTFRE+1 




000699 




LDA 


(VCBPTR) , Y 


; FIND OUT IF ENOUGH FREE BLOCKS 


000700 




DEY 




; ARE AVAILABLE TO ACCOMODATE REQEST . 


000701 




ORA 


(VCBPTR) , Y 


; BUT FIRST FIND OUT IF WE GOT A PROPER COUNT FOR 


A A A T A A 

000702 




BNE 


CMP FREE 


; BRANCH IF COUNT IS NON-ZERO 


A A A A O 

000703 




DEY 




; IF ZERO, THEN COUNT MUST BE TAKEN 


000704 




LDA 


(VCBPTR) , Y 


; GET HIGH TOTAL BLKS 


000705 




TAX 




; SAVE IT 


000706 




DEY 




; GET LOW 


000707 




LDA 


(VCBPTR) , Y 


; TOTAL BLKS 


000708 




BNE 


TSFROl 




A A A A A 

000709 




DEX 




; ADJUST FOR BITMAP BLOCK BOUNDARY 


000710 


TSFROl 


TXA 






000711 




LSR 


A 


; DIVIDE BY 16. THE RESULT IS THE NUMBER 


000712 




LSR 


A 


; OF BIT MAPS TO BE SEARCHED. 


A A A "7 1 O 

UUU /i j 




LSR 


A 




000714 




LSR 


A 




A A m 1 c: 
UUU / 15 




STA 


■D^4/^■^T'T' 
dMCW i 




000716 




LDA 


#0 


; START COUNT AT ZERO. 


000717 




STA 


SCRTCH 




000718 




STA 


SCRTCH+1 




000719 




LDA 


#$FF 


; MARK 'FIRST FREE' TEMP AS UNKNOWN 


000720 




STA 


NOFREE 




000721 




LDY 


#VCBDEV 


; MAKE SURE BIT MAP IS UP TO DATE 


000722 




LDA 


(VCBPTR) , Y 


; GET DEVICE NUMBER 


000723 




TAX 




; PASS TO 'UPBMAP' IN X 


000724 




JSR 


UPBMAP 


; (NOTHING HAPPENS IF IT DON'T HAFTA.) 
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000725 
000726 
000727 
000728 
000729 
000730 
000731 
000732 
000733 
000734 
000735 
000736 
000737 
000738 
000739 
000740 
000741 
000742 
000743 
000744 
000745 
000746 
000747 
000748 
000749 
000750 
000751 
000752 
000753 
000754 
000755 
000756 
000757 
000758 
000759 
000760 
000761 
000762 
000763 
000764 
000765 
000766 
000767 
000768 
000769 
000770 
000771 
000772 
000773 
000774 
000775 
000776 
000777 
000778 
000779 
000780 
000781 
000782 
000783 
000784 
000785 
000786 
000787 
000788 
000789 
000790 
000791 
000792 
000793 
000794 
000795 
000796 
000797 
000798 
000799 
000800 
000801 
000802 
000803 
000804 
000805 



DSKFULL 
TFBERR 



COUNT 
FRCONT 



FRCNT2 



FRCNT3 



CFREEl 



BCS 
LDY 
LDA 
STA 
INY 
LDA 
STA 
JSR 
BCS 
JSR 
DEC 
BMI 
INC 
BNE 
INC 
JMP 
PAGE 

LDY 
LDA 
BMI 
STA 
LDY 
LDA 
STA 
DEY 
LDA 
STA 
LDA 
SEC 
SBC 
INY 
LDA 
SBC 
BCC 
CLC 
RTS 
LDA 
SEC 
RTS 
PAGE 

LDY 
LDA 
BEQ 
JSR 
LDA 
BEQ 
JSR 
INY 
BNE 
BIT 
BPL 
LDA 
ORA 
BEQ 
LDY 
LDA 
SEC 
SBC 
LSR 
LSR 
LSR 
LSR 
SEC 
SBC 
STA 
RTS 

ASL 
BCC 
INC 
BNE 
INC 
TAX 
BNE 
RTS 

CHN 



TFBERR 
#VCBDMAP 
(VCBPTR) , Y 
BLOKNML 

(VCBPTR) , Y 

BLOKNMH 

RDGBUF 

TFBERR 

COUNT 

BMCNT 

CHGVCB 

BLOKNML 

BMAPRD 

BLOKNMH 

BMAPRD 



tVCBCMAP 

NOFREE 

DSKFULL 

(VCBPTR) , Y 
#VCBTFRE+1 
SCRTCH+1 

(VCBPTR) , Y 

SCRTCH 
(VCBPTR) , Y 
(VCBPTR) , Y 

REQL 

(VCBPTR) , Y 
REQH 
DSKFULL 



#OVRERR 



#0 

GBUF, Y 

FRCNTl 

CNTFREE 

GBUF+$100,Y 

FRCNT2 

CNTFREE 

FRCONT 
NOFREE 
FRCNT3 
SCRTCH 
SCRTCH+1 
FRONT 3 
#VCBTBLK+1 
(VCBPTR) , Y 

#$01 

A 

A 

A 

A 

BMCNT 
NOFREE 



A 

CFREEl 
SCRTCH 
CFREEl 
SCRTCH+1 



ALLOC, 4,1 



BRANCH IF WE GOT TROUBLE, 
GET ADDRESS OF FIRST BIT MAP. 



(FOR HIGH ADDRESS) 



USE G(ENERAL)BUFF(ER) FOR TEMPORARY 

SPACE TO COUNT FREE BLOCKS (BITS) 
GO COUNT EM 

WAS THAT THE LAST BIT MAP? 

IF SO, GO CHANGE FOB TO AVOID DOING THIS AGAIN! 
NOTE: THE ORGANIZATION OF THE BIT MAPS 
ARE CONTIGUOUS FOR SOS VERSION 

IF SOME OTHER ORGANIZATION IS IMPLEMENTED, THIS CODE 
MUST BE CHANGED! 



MARK WHICH BLOCK HAD FIRST FREE SPACE 

BRANCH IF NO FREE SPACE WAS FOUND. 

UPDATE THE FREE COUNT. 

GET HIGH COUNT BYTE 

UPDATE VOLUME CONTROL BLOCK. 



AND LOW BYTE TOO . . . 
COMPARE TOTAL AVAILABLE 



FREE BLOCKS ON THIS VOLUME. 



BEGIN AT THE BEGINNING. 

GET BIT PATTERN 

DON'T BOTHER COUNTING NOTHIN' 

DO BOTH PAGES WITH SAME LOOP 



LOOP TILL ALL 512 BYTES COUNTED 

HAS FIRST BLOCK WITH FREE SPACE BEEN FOUND YET? 
BRANCH IF IT HAS. 

TEST TO SEE IF ANY BLOCKS WERE COUNTED 
BRANCH IF NONE COUNTED. 

SHOW THIS MAP IS FIRST WITH FREE SPACE 
CORRECT FOR EXACT MULTIPLES OF $1000 



SUBTRACT COUNTDOWN FROM TOTAL BIT MAPS 



COUNT THE NUMBER OF BITS IN THIS BYTE. 



LOOP UNTIL ALL BITS COUNTED. 
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000806 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: FNDFIL 

000807 ******************************************************* 
000808 

000809 

End of File — Lines: 809 Characters: 31627 
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FILE: " SOS. INIT. SRC. TEXT" 



000001 

000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000015 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



***************************************************************** 

* APPLE /// SOS 1.3 SOURCE CODE FILE: INIT. SRC 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



******** 



******** 



SBTL 
REL 

INCLUDE 

ORG 

EQU 

MSB 
REP 

COPYRIGHT (C 



"SOS 1.1 INITIALIZATION" 

SOSORG, 6,1,254 
ORGINIT 



REP 



OFF 

100 

APPLE COMPUTER INC. 
ALL RIGHTS RESERVED 
100 



SOS INIT MODULE (VERSION 
(DATE 



1.10 



) 



ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 



= 8/04/81) 

100 

INT. INIT 

EVQ. INIT 

CLK.INIT 

MMGR.INIT 

BMGR.INIT 

DMGR.INIT 

CFMGR.INIT 

BFM.INIT 



EXTERNAL SUBROUTINES S DATA 



EXTRN 
EXTRN 



SXPAGE 
SYSDEATH 



INTERRUPT SYSTEM INITIALIZATION 



EXTRN 


COLDSTRT 


EXTRN 


IRQ.RCVR 


EXTRN 


NMI . RCVR 


EXTRN 


NMIFLAG 


EXTRN 


SIRTABLE 


EXTRN 


SIRTBLSIZ 


EXTRN 


ZPGSTACK 


EXTRN 


ZPGSTART 



EVENT QUEUE INITIALIZATION 

EXTRN EV. QUEUE 

EXTRN EVQ . LEN 

EXTRN EVQ . CNT 

EXTRN EVQ. SI Z 

EXTRN EVQ . FREE 

EXTRN EVQ . LINK 

CLOCK INITIALIZATION 



CHARACTER FILE MANAGER INITIALIZATION 



EXTRN 
EXTRN 



CFCB.MAX 
CFCB.DEV 



DEVICE MANAGER INITIALIZATION 



EXTRN 
EXTRN 



DMGR 

MAX.DNUM 



BUFFER MANAGER INITIALIZATION 



EXTRN 
EXTRN 
EXTRN 
EXTRN 



BUF . CNT 
PGCT.T 
XBYTE . T 
BUFREF 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



MEMORY MANAGER INITIALIZATION 



EXTRN 
EXTRN 
EXTRN 
EXTRN 

EXTRN 
EXTRN 
EXTRN 



ST . CNT 
ST. ENTRY 
ST . FREE 
ST.FLINK 

VRT.LIM 
MEMSIZE 
MEM2SML 



BLOCK FILE MANAGER INITIALIZATION 



EXTRN 
EXTRN 
EXTRN 

EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 

CONSTANT DECLARATIONS 



TRUE 
FALSE 
BIT0N6 
BIT0N7 



EQU 
EQU 
EQU 
EQU 



FCBZPP 

PATHBUF 

VCB 

WORKSPC 

PFIXPTR 

FCBADDRH 

BMAPAGE 

BMBPAGE 

BMAMADR 

BMBMADR 

BFMFCBl 

BFMFCB2 



$80 
$00 
$40 
$80 



SYSTEM CONTROL REGISTERS 



E.REG 
Z .REG 



EQU 
EQU 
SBTL 



$FFDF 
$FFDO 



/ENVIRONMENT REGISTER 
;ZERO PAGE REGISTER 



6522 REGISTERS 



"INTERRUPT SYSTEM INITIALIZATION" 



$FFD2 
$FFD3 
$FFDB 
$FFDC 
$FFDD 
$FFDE 
$FFEO 
$FFE2 
$FFE3 
$FFEB 
$FFEC 
$FFED 
$FFEE 
$C0F1 



60 



THIS SUBROUTINE INITIALIZES THE INTERRUPT SYSTEM. 
ALL HARDWARE INTERRUPTS ARE MASKED AND THE 
INTERRUPT ALLOCATION TABLE IS CLEARED. 



60 



DDRB 
DDRA 

ACR 

FOR 

IFR 

lER 

I ORB 

DDRB 

DDRA 

ACR 

PGR 

IFR 

lER 



EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



EQU 
SEI 
LDA 
STA 

LDA 
PHA 
ORA 
STA 



LDA 

STA 
STA 
LDA 



#>ZPGSTART 
ZPGSTACK 



#BITON7+BITON6 
E.REG 



#$FF 
D.DDRB 
D.DDRA 
#$00 



DISABLE INTERRUPTS 
SET UP MIH 

ZERO PAGE STACK POINTER 

/SELECT $C000 I/O SPACE 
; AND SET 1 MHZ 



/RESET ACTA 
;SET UP 6522 D 
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000158 


STA 


D . ACR 






000159 


LDA 


#$76 






000160 


STA 


D. PCR 






000161 


LDA 


#$7F 






000162 


STA 


D. IFR 






000163 


STA 


D. lER 






000164 


LDA 


#$82 






000165 


STA 


D. lER 






000166 










000167 


LDA 


#$3F 




;SET UP 6522 E 


000168 


STA 


E . DDRB 






000169 


LDA 


#$0F 






A A A T T A 

000170 


STA 


E . DDRA 






000171 


LDA 


#$00 






000172 


STA 


E .ACR 






000173 


LDA 


#$63 






000174 


STA 


E . PCR 






000175 


LDA 


#$7F 






000176 


STA 


E . IFR 






000177 


STA 


E . lER 






000178 










000179 


LDA 


#$FF 






000180 


STA 


E . lORB 




; SOUND PORT 


000181 


BIT 


$C0D8 




; DISABLE GRAPHICS SCROLL 


000182 


BIT 


$CODA 




; DISABLE CHARACTER DOWNLOAD 


000183 


BIT 


$CODC 




; DI SABLE ENSEL 


000184 


BIT 


$CODE 




;SET ENSIO FOR INPUT 


000185 










000186 


PLA 






;RESTORE E REGISTER 


000187 


STA 


E .REG 






000188 










000189 


LDA 


# FALSE 






000190 


STA 


NMIFLAG 




; CLEAR NMI WAIT FLAG 


A A A 1 AT 

000191 


LDY 


#>SIRTBLSIZ-1 






000192 


INTlOlO STA 


SIRTABLE, Y 




; ALLOCATION TABLE 


000193 


DEY 








000194 


BPL 


INTIOlO 






000195 


LDA 


#TRUE 






000196 


STA 


SIRTABLE+$OA 




;LOCK DOWN ANY SLOT SIR 


000197 










000198 


LDX 


#$05 






000199 


INTI020 LDA 


RAMVECT, X 




; SET UP VECTORS 


000200 


STA 


$FFFA, X 




; AT $FFFA - $FFFF 


000201 


LDA 


RAMJMPS , X 




;SET UP JMP INSTRUCTIONS 


000202 


STA 


$FFCA, X 




; AT $FFCA - SFFCF 


000203 


DEX 








000204 


BPL 


INTI020 






000205 


RTS 








000206 


* 








000207 


RAMVECT DW 


NMI . RCVR 






000208 


DW 


COLDSTRT 






000209 


DW 


IRQ . RCVR 






000210 


RAMJMPS JMP 


NMI . RCVR 






000211 


JMP 


IRQ. RCVR 






000212 


SBTL 


"EVENT QUEUE 


INITIALIZATION" 


000213 


REP 


60 






000214 


* 








000215 


* THIS SUBROUTINE INITIALIZES THE EVENT 


QUEUE 


ALL ENTRIES 


000216 


* ARE CLEARED AND LINKED 


INTO THE FREE 


LIST. 


THE ACTIVE 


000217 


* LIST IS EMPTY. 








000218 


* 








000219 


REP 


60 






000220 


* 








000221 










000222 


EVQ.INIT EQU 


* 






000223 


* 








000224 


* CLEAR ALL ENTRIES 








000225 


* 








000226 


LDY 


#>EVQ . LEN 






000227 


LDA 


#0 






000228 


EVQiOlO STA 


EV.QUEUE-1, Y 






000229 


DEY 








000230 


BNE 


EVQiOlO 






000231 


* 








000232 


* SET UP FREE LIST 








000233 


* 








000234 


LDX 


#>EVQ.CNT-2 






000235 


LDA 


#>EVQ.SIZ 






000236 


STA 


EVQ . FREE 






000237 


EVQI020 TAY 








000238 


CLC 
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000239 






ADC 






#>EVQ.SIZ 




000240 






STA 






EVQ.LINK, Y 




000241 






DEX 










000242 






BNE 






EVQI020 




A A A A A 

00024 J 






RTS 










000244 






SBTL 






"PSEUDO CLOCK INITIALIZATION" 


000245 






REP 






60 




000246 
















000247 




THIS SUBROUTINE INITIALIZES THE PSEUDO 


CLOCK . IF THE 


000248 




RAM BEHIND 


THE "D" 


5522 


HAS THE PROPER 


CHECKSUM, IT 


000249 


* 


IS USED TO 


INITIALIZE 


THE PSEUDO CLOCK. 


OTHERWISE, 


A A A A C A 

000250 


* 


THE PSEUDO 


CLOCK IS 


SET 


TO ZERO. 




A A A A C T 

000251 


* 














A A A A C A 

000252 


* 


(ADDED 23 OCT 81) 










A A A A C 

00025j 


* 


BOTH THE CLOCK AND PSEUDO CLOCK ARE 




000254 


* 


ARE NOW INITIALIZED 










000255 


* 














000256 






REP 






60 




000257 
















000258 


PCLK 


EQU 






$F0 




000259 


CKSUM 


EQU 






$F2 




A A A A A 

0002dO 


CLKICR 


EQU 






$11 


; t^LiUL-ri. ±JNic.KKUiri LUWiKUJ-i Ktjtj 


000261 


CLKSTBY 


EQU 






$16 


; CLOCK STANDBY INTERRUPT 


A A A A ^ A 

000262 


CLOCK 


EQU 






$C070 




A n A O o 

0002 6 J 


* 














0002 64 


CLK.INIT 


EQU 










0002 65 






LDA 






#$D0 




A A A O 

0002 66 






STA 






PCLK 


; POINT (PCLK) TO 8F : FFDO 


000267 






LDA 






#$FF 




A A A A ^ A 

000268 






STA 






PCLK+1 




A A A A ^ A 

000269 






LDA 






#$8F 




000270 






STA 






SXPAGE+PCLK+1 




000271 






LDA 






#$A5 




A A A A "7 A 

000272 






STA 






CKSUM 


; INITIALIZE CHECKSUM 


000273 


* 














000274 






LDY 






#$00 




000275 


CLKOlO 


LDA 






( PCLK) f Y 


; COPY SAVED CLOCK DATA 


000276 






STA 






PCLOCK, Y 


; TO PSEUDO CLOCK 


000277 






EOR 






CKSUM 




A A A A T A 

000278 






STA 






CKSUM 


; UPDATE CHECKSUM 


000279 






INY 










000280 






CPY 






#$0A 




A A A A A T 

000281 






BCC 






CLKOlO 




A A A A A A 

000282 


* 














000283 






CMP 






(PCLK) , Y 


;TEST CHECKSUM 


000284 






BEQ 






CLK030 




000285 


* 














000286 






LDA 






#$00 




A A A A A T 

000287 


CLK020 


DEY 










A A A A A A 

000288 






STA 






PCLOCK, Y 


; ZERO PSEUDO CLOCK 


000289 






BNE 






CLK020 




A A A A A A 

oooz yo 


CLK030 


LDA 






E.REG 




0002 91 






PHA 










0002 92 






ORA 






#$80 


; SET 1 MHZ 


0002 93 






STA 






E.REG 




000294 






LDA 






#$00 




000295 






LDY 






Z.REG 




A A A A A 

000296 






LDX 






#CLKICR 




000297 






STX 






Z.REG 




000298 






STA 






CLOCK 


; DISABLE CLOCK INTERRUPTS 


A A A A An 

OOOz 99 






LDX 






#CLKSTBY 




000300 






STX 






Z .REG 




000301 






STA 






CLOCK 


; DISABLE STANDBY INTERRUPT 


000302 






STY 






Z.REG 




000303 






PLA 










000304 






STA 






E.REG 




A A A O A IT 

000305 






RTS 










A A A O A 

000306 






SBTL 






"CHARACTER FILE 


MANAGER INITIALIZATION" 


A A A O A T 

000307 






REP 






60 




A A A A A 


* 














000309 




CHAR FILE MANAGER INITIALIZATION ROUTINE 




000310 
















000311 




CFMGR. INIT 


INITIALIZES 


ALL ENTRIES IN THE CFCB TABLE TO 


000312 


* 


THE "FREE" 


STATE . 










000313 


* 














000314 






REP 






60 




000315 


* 














000316 


CFMGR. INIT 


EQU 






* 




000317 






LDA 






#380 




000318 






LDX 






#CFCB.MAX-1 




000319 


CFINITOlO 


STA 






CFCB.DEV,X 
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000320 


DEX 






000321 


BPL 




CFINITOlO 


000322 


RTS 






000323 


SBTL 




"DEVICE MANAGER INITIALIZATION" 


A A A O A A 

000324 


REP 




60 


A A A O A IT 

000325 


* 






A A A O O 

00032D 


* DEVICE MANAGER INITIALIZATION ROUTINE 


000327 


* 






000328 


* INITIALIZES THE SYSTEM DEVICE TABLE (SDT) BY WALKING THE 


000329 


* DEVICE INFORMATION BLOCK 


(DIB) LINKS. CALLED BY SYSLDR. 


A A A t) A 

000330 








A A A O O 1 

000331 


REP 




60 


A A A O O O 

000332 








A A A O O 

000333 


D . TPARMX EQU 




$C0 


A A A O O A 

000334 


REQCODE EQU 




D.TPARMX+$00 


A A A O O C 

00033O 


DNUM EQU 




D.TPARMX+$01 


A A A t) 

000336 


DNUM . TEMP DS 




1 


A A A t) O ^ 

000337 








000338 


* 






A A A t) O A 

000339 


DMGR.INIT EQU 




* 


A A A O /I A 

000340 


LDX 




MAX. DNUM 


A A A O /IT 

000341 


INC 




MAX. DNUM ; MAX . DNUM : =MAX DEV NUMBER 


000342 


STX 




DNUM. TEMP 


000343 


DMIllO LDA 




#8 ; INITIALIZE ALL DEVICES IN 


000344 


STA 




REQCODE 


000345 


LDA 




DNUM. TEMP 


000346 


STA 




DNUM 


000347 


JSR 




DMGR 


000348 


DEC 




DNUM. TEMP 


000349 


BNE 




DMIllO 


A A A O C A 

000350 


RTS 




; NORMAL EXIT 


A A A O C T 

000351 


SBTL 




"BUFFER MANAGER INITIALIZATION" 


A A A O C O 

000352 


REP 




60 


A A A O C O 

000353 


* 






000354 


* BMGR.INIT 






000355 








000356 


* THIS ROUTINE INITIALIZES 


THE BUFFER TABLE'S ENTRIES TO "FREE". 


000357 


* CALLED DURING SYSTEM 


BOOT. 


000358 


* 






A A A O C A 

000359 


REP 




60 


000360 


* 






A A A O ^ T 

000361 


BMGR.INIT EQU 




* 


A A A t) A 

000362 


LDA 




#$FF ; USED WHEN FINDING LOWEST 


000363 


STA 




XBYTE . T 


000364 


* 






000365 


LDX 




#BUF.CNT-1 


000366 


LDA 




#$80 


000367 


BUFIOlO STA 




PGCT.T,X ;SET ALL ENTRIES "FREE" 


A A A o ^ n 

000368 


DEX 






000369 


BNE 




BUFIOlO 


A A A O T A 

000370 


* 






A A A O "7 1 

UU Uo / i 


STX 




BUFREF ;ZERO COUNT BYTE IN BUFFER 


000372 


* 






000373 


CLC 






000374 


RTS 






000375 


SBTL 




"MEMORY MANAGER INITIALIZATION" 


A A A O ""J 

000376 


REP 




60 


000377 


* 






A A A O T n 

000378 


* MMGR.INIT 






000379 


* 






A A A t) O A 

000380 


* THIS ROUTINE INITIALIZES 


THE MEMORY MANAGER'S SEGMENT TABLE 


000381 


* TO FREE ENTRIES, AND 


DETERMINES THE MEMORY SIZE OF THE 


000382 


* MACHINE (96K, 128K, 160K, 192K, 224K, 256K, . . , 512K IN 32K STEPS). 


000383 


* 






000384 


REP 




60 


000385 


* 






A A A O O 

000386 


MMGR.INIT EQU 




* 


A A A O O T 

000387 


* 






A A A o o n 

000388 


* INIT SEGMENT TABLE 






A A A O A 


* 






000390 


LDA 




#0 


000391 


STA 




ST. ENTRY 


000392 


LDA 




#$81 


000393 


STA 




ST . FREE 


000394 


* 






000395 


LDY 




#ST.CNT-1 


000396 


LDA 




#$80 ; SET LAST LINK TO NULL 


000397 


STA 




ST.FLINK, Y 


000398 


MEMIOlO TYA 






000399 


ORA 




#$80 


000400 


DEY 
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000401 






STA 


ST.FLINK,Y 






000402 






BNE 


MEMIOlO 






000403 














000404 




COMPUTE 


VIRTUAL LIMIT 


FROM MEMORY SIZE 




000405 




VRT . LIM 


:= NUMBER OF 


PAGES IN BANK SWITCHED 


MEMORY - 1 


000406 






:= {MEMSIZ-2) 


*64 - 1 






000407 






:= (MEMSIZ-4) 


4r f n 1 TOT 

* 04 + 12/ 






000408 














000409 






SEC 








000410 






LDA 


MEMSIZE 






000411 






SBC 


#4 






000412 






BCC 


MEMI . ERR 






000413 






LSR 


A 






000414 






LSR 


A 






000415 






STA 


VRT.LIM+1 






000416 






LDA 


#$FE 






000417 






ROR 


A 






000418 






STA 


VRT. LIM 






000419 






CLC 








000420 






RTS 






; NORMAL EXIT 


000421 


* 














MEMI.ERR 


LDA 


#MEM2SML 




; FATAL ERR - MEM < 64K 


000423 






JSR 


SYSDEATH 






000424 






PAGE 








000425 






REP 


60 






000426 














000427 


* 


BLOCK 


FILE MANAGER INITIALIZATION 






000428 


* 












000429 






REP 


60 






000430 


* 












000431 


SISTER 


EQU 


$1400 




;BFM XPAGE 


000432 


BFM.INIT 


EQU 


* 






000433 






LDA 


#BFMFCB1 




; ADDRESS OF PAGE 1 OF FOB 


000434 






STA 


>FCBZPP+1 






000435 






LDA 


#BFMFCB2 




; AND PAGE 2 


000436 






STA 


>FCBZPP+3 






000437 






LDA 


#0 






000438 






STA 


>FCBZPP 




; FOB PAGE ALIGNED 


000439 






STA 


>FCBZPP+2 






000440 






STA 


SISTER+FCBZPP+1 


; PREPARE PART OF EXTEND BYTE 


000441 






STA 


SISTER+FCBZPP+3 




000442 






TAY 






; MAKE ZERO INTO INDEX 


000443 


CLRBUFFS 


EQU 


* 






000444 






STA 


PATHBUF, Y 




; PATHNAME BUFFER PAGE 


000445 






STA 


VCB, Y 




; VOLUME CONTROL BLOCK PAGE 


000446 






STA 


(>FCBZPP) , Y 




; BOTH FILE CONTROL BLOCK PAGES 


000447 






STA 


(>FCBZPP+2) , 


Y 




000448 






INY 








000449 






BNE 


CLRBUFFS 






000450 






LDX 


#$3F 




; SIZE OF MY ZERO PAGE STUFF 


000451 


CLRZWRK 


STA 


0,X 




; ZERO PAGE ZEROED 


000452 






STA 


WORKSPCX 






000453 






DEX 








000454 






BPL 


CLRZWRK 






000455 






LDA 


#<PATHBUF 






000456 






STA 


PFIXPTR+1 






000457 






LDA 


#BFMFCB1 






000458 






STA 


FCBADDRH 






000459 






LDA 


#BMAPAGE 




; BIT MAP A PAGE NUMBER 


000460 






STA 


BMAMADR 






000461 






LDA 


#BMBPAGE 




; BIT MAP B PAGE NUMBER 


000462 






STA 


BMBMADR 






000463 






CLC 








000464 






RTS 








000465 


* 












000466 






LST 


ON 






000467 


ZZEND 


EQU 


* 






000468 


ZZLEN 


EQU 


ZZEND-ZZORG 






000469 






IFNE 


ZZLEN-LENINIT 




000470 






FAIL 


2,"S0S0RG 




FILE IS INCORRECT FOR INIT" 


000471 






FIN 








000472 














000473 












**************************** 


000474 




END OF 


APPLE /// SOS 


1.3 SOURCE CODE 


FILE: 


INIT. SRC 


000475 


************************************************************************* 


000476 















End of File — Lines: 476 Characters: 11714 
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FILE: "SOS. IPL.SRCl. TEXT" 



000001 


************************************************************************* 




* 


APPLE /// SOS 1.3 SOURCE CODE FILE: 


IPL.SRCl 




000003 










************************** 


000004 


* 


ASSEMBLER: APPLE ] [ 650 


2 ASSEMBLER 


from APPLE 


COMPUTER TOOLKIT 


000005 












000006 




SBTL 


"SOS 1.1 


INTRPTS . & 


PROC. LAUNCH" 


000007 




REL 








A A A A A n 

000008 




INCLUDE 


SOSORG, 6,1 


,254 




000009 




ORG 


ORGIPL 






A A A A T A 

000010 


ZZORG EQU 


* 






A A A A T T 

000011 




MSB 


OFF 






000012 




REP 


60 






000013 




COPYRIGHT (C) 


APPLE COMPUTER INC. 1980 


000014 




ALL 


RIGHTS RESERVED 




000015 




REP 


60 






A A A A T 

000016 












000017 




THIS MODULE IS RESPONSIBLE FOR FIELDING ALL 


INTERRUPTS 


000018 




AND RELAUNCHING THE INTERRUPTED CODE AFTER THE INTERRUPTS 


A A A A T A 

ooooiy 




HAVE BEEN PROCESSED. 


THE MAJOR FUNCTIONAL AREAS ARE: 


A A A A O A 

OOOOzO 












000021 




GENERAL INTERRUPT 


RECEIVER 






000022 




NMI INTERRUPT RECEIVER 






000023 




DISPATCHER 








000024 




INTERRUPT ALLOCATION & DEALLOCATION 




A A A A IT 

000025 




EVENT QUEUE MANAGER 






A A A A O 

000026 




TABLE INITIALIZATION 






000027 












A A A A O n 

000028 




REP 


60 






A A A A O A 

000029 












000030 




SUBROUTINE ENTRY POINTS 






000031 












000032 




ENTRY 


IRQ.RCVR 




; GENERAL INTERRUPT RECEIVER 


000033 




ENTRY 


NMI .RCVR 




; NON-MASKABLE INTRPT RCVR 


000034 




ENTRY 


DISPATCH 




; DI SPATCHER 


A A A A O IT 

000035 




ENTRY 


ALLOCSIR 




;SIR ALLOCATION 


000036 




ENTRY 


DEALCSIR 




;SIR DEALLOCATION 


A A A A O T 

000037 




ENTRY 


SELCBOO 




;SELECT I/O EXPANSION ROM 


000038 




ENTRY 


NMIDSBL 




/DISABLE NMI 


000039 




ENTRY 


NMIENBL 




; ENABLE NMI 


000040 




ENTRY 


NMI DRUG 




; NMI DEBUG ENTRY 


000041 




ENTRY 


NMICONT 






000042 




ENTRY 


QUEEVENT 




; QUEUE AN EVENT 


A A A A /I 

000043 












000044 




EXTERNAL SUBROUTINES S 


DATA 






000045 












A A A A A 

000046 




EXTRN 


SCMGR 






000047 




EXTRN 


CHKBUF 






000048 












000049 




SYSTEM DEATH ERRORS 








000050 












000051 




EXTRN 


SYSDEATH 






A A A A C O 

000052 




EXTRN 


BADBRK 






A A A A C 

000053 




EXTRN 


BADINTl 






000054 




EXTRN 


BADINT2 






A A A A C IT 

000055 




EXTRN 


NMI HANG 






000056 




EXTRN 


EVQOVFL 






000057 




EXTRN 


STKOVFL 






000058 


* 










000059 


* 


LINKAGE DATA FOR INITIALIZATION ROUTINES 




000060 


* 










A A A A ^ 1 

000061 




ENTRY 


EV. QUEUE 






UUUU6Z 




ENTRY 


EVQ . CNT 






000063 




ENTRY 


EVQ.SIZ 






000064 




ENTRY 


EVQ . LEN 






000065 




ENTRY 


EVQ . FREE 






000066 




ENTRY 


EVQ. LINK 






000067 




ENTRY 


SIRTABLE 






000068 




ENTRY 


SIRTBLSIZ 






000069 




ENTRY 


ZPGSTACK 






000070 




ENTRY 


ZPGSTART 






000071 


* 










000072 


* 


SYSGLOB DATA 








000073 


* 










000074 




EXTRN 


SERR 






000075 




EXTRN 


CEVPRI 




/CALLER'S EVENT PRIORITY 


000076 




EXTRN 


SYSBANK 




/SYSTEM BANK 
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000077 




EXTRN 


KYBDNMI 




000078 




EXTRN 


NMISPSV 




000079 




EXTRN 


NMIFLAG 


;NMI PENDING FLAG 


000080 




EXTRN 


SCRNMODE 


; CURRENT SCREEN MODE 


000081 




EXTRN 


SIRTEMP 


;FOR ALLOCS IR & DEALCS 


000082 




EXTRN 


SIRARGSIZ 








EXTRN 


IRQCNTR 


; FLASE IRQ COUNTER 


000084 




EXTRN 


NMICNTR 


; TWO BYTE COUNTER 


000085 




EXTRN 


QEVTEMP 




000086 




EXTRN 


QEV. THIS 




000087 




EXTRN 


QEV . LAST 




000088 




EXTRN 


BACKMASK 




000089 


* 








000090 


* CONSTANT DECLARATIONS 






000091 


* 








A A A A A 

000092 


FALSE 


EQU 


$00 




000093 


BITONO 


EQU 


$01 




000094 


BITONl 


EQU 


$02 




000095 


BIT0N2 


EQU 


$04 




000096 


BIT0N4 


EQU 


$10 




000097 


BIT0N5 


EQU 


$20 




000098 


BIT0N6 


EQU 


$40 




000099 


BIT0N7 


EQU 


$80 




000100 


BIT0FF3 


EQU 


$F7 




000101 


BIT0FF4 


EQU 


$EF 




000102 


B I TOFFS 


EQU 


$DF 




000103 


BIT0FF6 


EQU 


$BF 




000104 


BIT0FF7 


EQU 


$7F 




000105 


BACKBIT 


EQU 


$20 


; BACKUP BIT MASK 


000106 


* 








000107 


* SYSTEM 


CONTROL REGISTERS 




000108 


* 








000109 


B.REG 


EQU 


$FFEF 


;BANK REGISTER 


A A A 1 T A 

000110 


E.REG 


EQU 


$FFDF 


; ENVIRONMENT REGISTER 


000111 


Z .REG 


EQU 


$FFDO 


; ZERO PAGE REGISTER 


000112 


* 








000113 


* 6522 REGISTERS 






000114 


* 








000115 


D.IFR 


EQU 


$FFDD 




000116 


D.IER 


EQU 


$FFDE 




000117 


E.IORB 


EQU 


$FFEO 




000118 


E.IFR 


EQU 


$FFED 




000119 


E.IER 


EQU 


$FFEE 




000120 


E.IORA 


EQU 


$FFEF 




000121 




PAGE 






000122 










000123 


* REGISTER PRESERVATION 


EQUATES 




000124 


* FOR USE 


DURING INTERRUPT PROCESSING 




000125 


* 








000126 


A. SAVE 


EQU 


$103 




000127 


S.SAVE 


EQU 


$104 




000128 


S P. SAVE 


EQU 


$1FF 




000129 


E . SAVE 


EQU 


$1FE 




000130 


Z . SAVE 


EQU 


$1FD 




000131 


B . SAVE 


EQU 


$1FC 




000132 


EXPNSLOT 


DFB 


$00 


;CURRENT I/O EXPANSION 


000133 


* 








000134 


* STATUS 


LOCATIONS FOR 


INTERRUPT POLLING 




000135 


* 








000136 


AC IAS TAT 


EQU 


$C0F1 




A A A 1 O ^ 

000137 


ANYSLOT 


DFB 


BITONl 




000138 


SLOTl 


EQU 


$C065 




000139 


SL0T2 


EQU 


$C064 




000140 


SLOTS 


DFB 


BIT0N5 




000141 


SL0T4 


DFB 


BIT0N4 




000142 


* 








000143 


* INTERRUPT ZERO PAGE STORAGE S EQUATES 




000144 


* 








000145 


SIRARGS 


EQU 


$F9 


;AND $FA 


A A A 1 AT 

000146 


QEVARGS 


EQU 


$FB 


;AND $FC 


000147 


IRQADDR 


EQU 


$FD 


;AND $FE 




ZPGSP 


EQU 


$FF 




000149 


ZPGSTART 


EQU 


$F8 




000150 


ZPGSTOP 


EQU 


$28 




000151 


ZPGSPACE 


EQU 


$20 




000152 


ZPGSTACK 


DFB 


ZPGSTART 




000153 


* 








000154 


* SYSTEM 


INTERNAL RESOURCE 




000155 


* TABLE STORAGE AND EQUATES 




000156 


* 








000157 


SIRTBLSIZ 


EQU 


$18 
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000158 


SIRTABLE DS 


SIRTBLSIZ 


000159 


SIRADR.L DS 


SIRTBLSIZ 


000160 


NMIADR.L DS 


1 ;MUST PRECEED SIRADR.H 


A A A T ^ T 

000161 


SIRADR.H DS 


SIRTBLSIZ 


000162 


SIRADR.B DS 


SIRTBLSIZ 


000163 


* 






A A A 1 A 

000164 


* 


EVENT QUEUE STORAGE AND 


EQUATES 


000165 








000166 


EVQ 


.SIZ EQU 


6 ; ENTRY SIZE 


0001 67 


EVQ 


. CNT EQU 


$ 7 ; ENTRY COUNT 


000168 


EVQ 


. LEN EQU 


$2A ; (EVQ.SIZ*EVQ.CNT) 


000169 


EV. QUEUE DS 


EVQ . LEN 


000170 


EVQ 


. FREE EQU 


EV.QUEUE+2 ; FIRST FREE ENTRY INDEX 


000171 


EVQ 


. LINK EQU 


EV.QUEUE+0 ;NEXT ACTIVE ENTRY INDEX 


000172 


EVQ 


. PRI EQU 


EV.QUEUE+1 ; EVENT PRIORITY 


A A A T "1 O 

00017 J 


EVQ 


.ID EQU 


EV.QUEUE+2 ;EVENT IDENTIFICATION 


000174 


EVQ 


. ADRL EQU 


EV.QUEUE+3 /EVENT ADDRESS: LOW BYTE 


000175 


EVQ.ADRH EQU 


EV.QUEUE+4 ; EVENT ADDRESS: HIGH BYTE 


000176 


EVQ 


.BANK EQU 


EV.QUEUE+5 ; EVENT ADDRESS: BANK 


000177 




SBTL 


"GENERAL INTERRUPT RECEIVER" 


000178 




REP 


60 


000179 








000180 




THIS IS THE GENERAL INTERRUPT RECEIVER. WHEN AN 


000181 




INTERRUPT OCCURS, THE CPU PASSES CONTROL TO THE GIR 


000182 




THROUGH THE IRQ VECTOR. 


THE GIR IS RESPONSIBLE FOR 


000183 




SAVING THE CURRENT ENVIRONMENT, SETTING UP THE SOS 


000184 




ENVIRONMENT, AND CALLING THE APPROPRIATE CODE MODULE. 


000185 




IF THE INTERRUPT WAS CAUSED BY A BRK, THE GIR CALLS 


000186 


* 


THE SYSTEM CALL MANAGER. OTHERWISE, THE GIR POLLS THE 


000187 


* 


I/O DEVICES AND CALLS THE APPROPRIATE MASTER INTERRUPT 


000188 


* 


HANDLER. WHEN THE SCM 


OR MIH RETURNS, THE GIR PASSES 


000189 


* 


CONTROL TO THE DISPATCHER. 


000190 


* 






000191 




REP 


60 


000192 


* 






000193 


IRC 


. RCVR EQU 




000194 








000195 




SAVE CPU REGISTERS A, X 


, S Y ON CURRENT STACK 


000196 


* 






000197 




PHA 




000198 




TXA 




000199 




PHA 




000200 




TYA 




000201 




PHA 




000202 








000203 




CHECK FOR STACK OVERFLOW AND 


000204 




SAVE INTERRUPTED STATUS 


IN Y REGISTER. 


000205 


* 






000206 




TSX 




000207 




CPX 


#$FA 


000208 




BCC 


GIR005 


000209 




LDA 


#>STKOVFL 


000210 




JSR 


SYSDEATH 


000211 


GIR005 LDY 


S.SAVE,X 


000212 








000213 




SET UP INTERRUPT ENVIRONMENT: 


000214 


* 


BINARY ARITHMETIC, 2 


MHZ, I/O ENABLED, 


000215 


* 


RAM WRITE ENABLED, PRIMARY STACK, 


000216 


* 


AND $F000 RAM SELECTED. PRESERVE 


000217 


* 


USER STATE OF SCREEN 


AND RESET LOCK. 


000218 


* 






000219 




CLD 




000220 




LDA 


E.REG 


000221 




TAX 




000222 




AND 


#BITON5+BITON4 


000223 




ORA 


#BITON6+BITON2 


000224 




STA 


E.REG 


000225 


* 






000226 


* 


IF NOT ALREADY ON PRIMARY STACK, SAVE USER'S STACK 


000227 


* 


POINTER AND SET UP SOS 


STACK POINTER. 


000228 


* 






000229 




TXA 




000230 




AND 


#BIT0N2 


000231 




BNE 


GIROlO 


000232 




TXA 




000233 




TSX 




000234 




STX 


SP.SAVE 


000235 




LDX 


#>E . SAVE 


000236 




TXS 




000237 




TAX 




000238 


* 
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r\ n n o o rs 


* SAVE E, Z, B, S I/O EXPANSION SLOT ON 


SOS 


STACK 


000240 


* IF BRK THEN CALL SCMGR 


i]LSE POLL I/O 


DEVICES 


UUUz^ll 










UUUz^lZ 


GIRO 10 TXA 








000/4 J 


PHA 








A A A O yi A 

000/414 


LDA 


Z .REG 






A A A O A C 

000z4o 


PHA 








A A A O A r 

000^4d 


LDA 


B.REG 






A A A O 

000/4 / 


PHA 








A A A O A O 

000/4O 


LDA 


EXPNSLOT 






A A A O A A 

ooo/4y 


PHA 








A A A C A 

000/50 


BIT 


$CFFF 






A A A O C T 

000/51 


BIT 


$C020 




;RESET I/O SPACE 


A A A O C O 

000/5/ 


LDA 


#$00 






A A A O C O 

000/5 J 


STA 


EXPNSLOT 






A A A O C >1 

000/54 


TYA 








000255 


AND 


#BIT0N4 






A A A O t 

00025D 


BEQ 


POLL. 10 






A A A O C 

00025 / 










A A A O CO 

000/5o 


* CALL SYSTEM CALL MANAGER; ON RETURN, 


PUT 


ERROR CODE IN 


A A A O C A 

ooo/5y 


* USER'S A REGISTER AND SET RETURN STATUS, 


THEN DISPATCH. 


A A A O A 

000/dO 










A A A ^ T 

000/61 


TSX 






; CHECK FOR 


A A A O iCO 

000/d/ 


CPX 


#>B . SAVE-2 




; REENTRANT 


A A A O O 

UO U/ b j 


BEQ 


GIR02 




; SYSTEM CALL 


uU U/ b4 


LDA 


#>BADBRK 






A A A O ^ C 

0002 d5 


JSR 


SYSDEATH 






A A A o r f 

0002 DD 


GIR020 LDA 


E . REG 




; SELECT $C000 RAM 


A A A o 

0002d / 


AND 


#BIT0FF5 






A A A O iC O 

000/do 


STA 


E . REG 






A A A O A 

ooo/by 


CLI 






; ENABLE INTERRUPTS 


A A A O "7 A 
000/ /O 


JSR 


SCMGR 




;CALL THE SYSTEM CALL MGR 


000271 


LDA 


#BACKBIT 




; GET THE MASK 


A A A O "7 O 
0002 11 


STA 


BACKMASK 




; SET IT IN SYSGLOB 


A A A O '"7 
UO U/ IS 


JSR 


CHKBUF 






A A A O '"7 

UO 0/ /4 


SEI 








A A A O '"7 C 

0002 /5 


LDX 


S P . SAVE 






000276 


LDA 


Z . SAVE 






A A A O n 

000/ / / 


EOR 


#BITON0 




; SET ZERO PAGE TO 


A A A O "7 O 

000/ /o 


STA 


Z . REG 




; CALLER ' S STACK 


A A A O "7 A 

000/ /y 


LDA 


SERR 






A A A OO A 

OOO/oO 


STA 


>A . SAVE , X 






A A A O O 1 

OOO/ol 


PHP 








A A A O O A 

0002o2 


LDA 


>S . SAVE, X 






A A A O O O 

0002o J 


AND 


#$7D 






A A A O O 

0002d4 


STA 


>S . SAVE , X 






A A A A O C 

0002o5 


PLA 








A A A A A z' 

OOO/OD 


AND 


#$82 






A A A O O "7 

OOO/o / 


ORA 


>S . SAVE , X 






A A A O O O 

OOO/oo 


STA 


>S . SAVE , X 






A A A OO A 

ooo/yy 


JMP 


DISPATCH 






A A A QA 

uuu/ yu 


PAGE 








A A A A A 1 

0002 yi 










A A A A AO 

0002 y2 


* SET INTERRUPT ZERO PAGE 


AND SOS BANK 






A A A A A 'J 

0002 yj 


* THEN POLL I/O DEVICES 








A A A A r\ A 

0002y4 


* 








A A A A A C 

ooo/y5 


POLL. 10 BIT 


E.IORA 




;VERIFY THAT ' IRQ IS LOW 


A A A A A 

000/96 


BPL 


PIO006 






A A A A A"7 

000/y / 


INC 


IRQCNTR 




;BUMP FALSE IRQ COUNTER 


A A A A A O 

ooo/yy 


BNE 


PIO004 






A A A A A A 

0002 yy 


INC 


IRQCNTR+1 






A A A A A 

OOOoOO 


PIO004 JMP 


DISPATCH 






A A A A 1 

OOOoOl 


PIO006 LDA 


#0 




; SET INTERRUPT ZERO PAGE 


A A A A A 

000 j02 


STA 


Z .REG 






A A A O A O 

000 JO J 


LDA 


E.REG 






A A A A A /I 

000i04 


ORA 


#BIT0N7 




; FORCE 1 MHZ FOR 


A A A O A C 
000 J05 


STA 


E.REG 




; READING ACTA STATUS 


A A A O A /" 

000 JOo 


AND 


#BIT0FF7 






A A A O A T 


LDX 


#$01 






A A A O A O 

000 JUo 


LDY 


ACIASTAT 




;ANY INTERRUPT ON ACIA? 


000309 


STA 


E.REG 






000310 


BMI 


PIO070 






000311 


LDA 


E.IFR 




;ANY INTERRUPT ON E-6522? 


000312 


BPL 


PIO020 




; NO 


000313 


AND 


E.IER 






000314 


LDY 


#7 






000315 


LDX 


#$02 






000316 


PlOOlO LSR 


A 




/CHECK FLAG BITS 


000317 


BCS 


PIO070 






000318 


INX 








000319 


DEY 
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000320 


BNE 




PlOOlO 






000321 


BEQ 




PIO035 






000322 


PIO020 LDA 




D. IFR 




;ANY INTERRUPT ON D-6522? 


00032 J 


BPL 




PIO035 






A A A O A A 

000324 


AND 




D. lER 






000325 


BIT 




ANYSLOT 




;ANY SLOT INTERRUPT? 


A A A O 

000326 


BNE 




PIO040 




; YES 


000327 


LDY 




#7 






000328 


LDX 




#$09 






000329 


PIO030 LSR 




A 




; CHECK FLAG BITS 


A A A t) A 

000330 


BCS 




PIO070 






000331 


INX 










A A A O O O 

000332 


DEY 










000333 


BNE 




PIO030 






A A A O O A 

000334 


PIO035 LDX 




#$10 




; INTERRUPT NOT FOUND 


A A A O O IT 

000335 


BNE 




PIO050 






A A A t) t) 

000336 


PIO040 LDX 




#$11 






A A A t) O ^ 

000337 


BIT 




SLOTl 




; SLOT 1 ? 


A A A tJ t) O 

000338 


BPL 




PIO070 






A A A t) O A 

00033y 


INX 










A A A O /I A 

000340 


BIT 




SL0T2 




;SLOT 2? 


A A A O /IT 

000341 


BPL 




PIO070 






000342 


LDA 




E.IORA 






A A A O A *?> 

000343 


INX 










000344 


BIT 




SL0T3 




;SLOT 3? 


000345 


BEQ 




PIO07a 






000346 


INX 










000347 


BIT 




SLOT 4 




;SLOT 4? 


000348 


BEQ 




PIO070 






A A A O /I A 

000349 


LDX 




#$0A 






000350 


* 










000351 


* BAD INTERRUPT — 


SYSTEM DEATH 






A A A O C O 

000352 


* 










A A A O C O 

000353 


PIO050 LDA 




#>BADINT1 




/INTERRUPT NOT FOUND 


A A A t) r /I 

000354 


JSR 




SYSDEATH 






000355 


PIO060 LDA 




#>BADINT2 




;BAD ZERO PAGE ALLOCATION 


000356 


JSR 




SYSDEATH 






000357 


* 










A A A o c n 

000358 


* INTERRUPTING DEVICE 


FOUND 






A A A O C A 

000359 


* ALLOCATE ZERO PAGE 


AND CALL MASTER INTERRUPT HANDLER 


000360 


* 










A A A O ^ T 

000361 


* NOTE : 










A A A t) A 

000362 


* SINCE READING THE 


ACIA'S STATUS REGISTER 


RESETS THE 


000363 


* DSR AND DCD BITS, 


THE STATUS READ BY 


THE 


POLLING 


000364 


* ROUTINE MUST BE 


PASSED TO THE INTERRUPT HANDLER; 


000365 


* THE Y REGISTER 


HAS 


BEEN SELECTED FOR 


THIS 


PURPOSE . 


000366 


* THE CURRENT IMPLEMENTATION DOES NOT USE Y 


IN CALLING 


A A A O iC"7 

00036 / 


* THE INTERRUPT HANDLER. IF SUBSEQUENT 


REVISIONS 


A A A o ^ n 

000368 


* NEED TO USE Y, 


THE 


STATUS MUST BE PRESERVED AND 


A A A O ^ A 

000369 


* RESTORED BEFORE 


CALLING THE INTERRUPT 


HANDLER. 


A A A O T A 

000370 


* 










A A A O "7 1 

UU U J / i 


CALLMIH JMP 




(IRQADDR) 






000372 












000373 


PIO070 LDA 




SIRTABLE,X 




/INTERRUPT ALLOCATED? 


000374 


BPL 




PIO050 




; NO 


000375 


LDA 




SIRADR.L,X 




;GET INTERRUPT ADDRESS 


000376 


STA 




IRQADDR 






A A A O 1 

0003 / / 


ORA 




SIRADR.H,X 




/CHECK FOR ADDRESS = $00 


A A A O T n 

000378 


BEQ 




PIOOSO 




; BAD ADDRESS 


000379 


LDA 




SIRADR.H,X 






A A A "3 O A 

0003o0 


STA 




IRQADDR+1 






000381 


LDA 




SIRADR.B,X 






000382 


STA 




B.REG 






000383 


LDA 




ZPGSTACK 




/ALLOCATE MIH ZERO PAGE 


000384 


CMP 




#ZPGSTOP+ZPGSPACE 




A A A O O IT 

000385 


BCC 




PIOOSO 




;T00 MANY NESTED INTERRUPTS 


000386 


SBC 




#ZPGSPACE 






A A A O O ^ 

000387 


STA 




ZPGSTACK 






A A A o o n 

000388 


STA 




ZPGSP 






A A A O A 

000389 


TAX 










000390 


JSR 




CALLMIH 




;CALL INTERRUPT HANDLER 


n n M "3 n 1 


SEI 










000392 


LDA 




#$00 






000393 


STA 




Z .REG 






000394 


CLC 










000395 


LDA 




ZPGSTACK 




/DEALLOCATE MIH ZERO PAGE 


000396 


ADC 




#ZPGSPACE 






000397 


STA 




ZPGSTACK 






000398 


STA 




ZPGSP 






000399 


LDA 




#BIT0N1 






000400 


STA 




D. IFR 




; CLEAR ANY SLOT INTERRUPT 
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000401 




JMP 


DISPATCH 


000402 




SBTL 


"NON-MASKABLE INTERRUPT RECEIVER 


000403 




REP 


60 


000404 








000405 




THIS IS THE NON-MASKABLE INTERRUPT RECEIVER. WHEN AN 


000406 




NMI OCCURS, THE CPU 


PASSES CONTROL TO THE NMI RECEIVER 


000407 




THROUGH THE NMI VECTOR. THE OPERATION OF THE NMI 


000408 




RECEIVER IS ESSENTIALLY THE SAME AS THE GIR EXCEPT 


000409 




THAT IT IS NOT CONCERNED WITH BRK, AND THE ONLY VALID 


000410 




SOURCE OF AN NMI IS 


THE KEYBOARD OR THE I/O DEVICE THAT 


000411 




HAS ALLOCATED THE NMI RESOURCE. 


000412 








000413 




REP 


60 


000414 








000415 








000416 


NM] 


.RCVR EQU 




000417 








000418 




SAVE CPU REGISTERS 


A, X, S Y ON CURRENT STACK 


000419 








000420 




PHA 




000421 




TXA 




000422 




PHA 




000423 




TYA 




000424 




PHA 




000425 








000426 




CHECK FOR STACK OVERFLOW 


000427 








000428 




TSX 




000429 




CPX 


#$FA 


000430 




BCC 


NMI005 


000431 




LDA 


#>STKOVFL 


000432 




JSR 


SYSDEATH 


000433 


* 






000434 


* 


SET UP INTERRUPT ENVIRONMENT: 


000435 




BINARY ARITHMETIC 


, 2 MHZ, I/O ENABLED, 


000436 




RAM WRITE ENABLED 


, PRIMARY STACK, 


000437 




AND $F000 RAM SELECTED. PRESERVE 


000438 


* 


USER STATE OF SCREEN AND RESET LOCK. 


000439 


* 






000440 


NMI005 CLD 




000441 




LDA 


E.REG 


000442 




TAX 




000443 




AND 


#BITON5+BITON4 


000444 




ORA 


#BITON6+BITON2 


000445 




STA 


E.REG 


000446 


* 






000447 


* 


IF NOT ALREADY ON PRIMARY STACK, SAVE USER'S 


000448 


* 


STACK POINTER AND SET UP SOS STACK POINTER. 


000449 


* 






000450 




TXA 




000451 




AND 


#BIT0N2 


000452 




BNE 


NMIOlO 


000453 




TXA 




000454 




TSX 




000455 




STX 


S P. SAVE 


000456 




LDX 


#>E . SAVE 


000457 




TXS 




000458 




TAX 




000459 


* 






000460 


* 


SAVE SYSTEM CONTROL 


REGISTERS E, Z, S B ON SOS STACK 


000461 


* 






000462 


NMIOlO TXA 




000463 




PHA 




000464 




LDA 


Z.REG 


000465 




PHA 




000466 




LDA 


B.REG 


000467 




PHA 




000468 




LDA 


EXPNSLOT 


000469 




PHA 




000470 




BIT 


$CFFF 


000471 




BIT 


$C020 /RESET I/O 


000472 




LDA 


#$00 


000473 




STA 


EXPNSLOT 


000474 


* 






000475 


* 


SET INTERRUPT ZERO 


PAGE 


000476 


* 






000477 




LDA 


#0 


000478 




STA 


Z.REG 


000479 


* 






000480 


* 


SEE IF NMI IS FROM 


KEYBOARD OR I/O DEVICE 


000481 


* 
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000482 


LDA 


E . lORB 








000483 


BMI 


NMI 030 








000484 












000485 


* NMI IS FROM I/O DEVICE 










000486 












000487 


LDA 


SIRTABLE 






;NMI ALLOCATED? 


000488 


BPL 


NMI020 








000489 


JSR 


CALLNMI 








000490 


SEI 










000491 


JMP 


DISPATCH 








000492 


CALLNMI LDA 


SIRADR.L 








000493 


STA 


NMIADR . L 








000494 


LDA 


SIRADR.B 








000495 


STA 


B.REG 








000496 


JMP 


(NMIADR. L) 








000497 


* 










000498 


* BAD INTERRUPT — SYSTEM 


DEATH 








000499 


* 










000500 


NMI020 LDA 


#>BADINT1 






;NMI NOT ALLOCATED 


000501 


JSR 


SYSDEATH 








000502 


* 










000503 


* NMI IS FROM THE KEYBOARD 








000504 


* 










000505 


NMI030 LDA 


SYSBANK 








000506 


STA 


B.REG 








000507 


JSR 


KYBDNMI 








000508 


SEI 










000509 


JMP 


DISPATCH 








000510 


SBTL 


"DISPATCHER" 








000511 


REP 


60 








000512 


* 










000513 


* THIS IS THE DISPATCHER. 


UPON COMPLETION 


ALL 


SOS CALLS 


000514 


* AND INTERRUPT HANDLERS RETURN CONTROL 


TO 


THE 


DISPATCHER. 


000515 


* ITS PURPOSE IS TO SET UP THE APPROPRIATE 


ENVIRONMENT AND 


000516 


* PASS CONTROL TO WHATEVER CODE SHOULD 


RUN 


NEXT 




000517 












000518 


* WHEN SOS IS INTERRUPTED, 


CONTROL ALWAYS RETURNS TO THE 


000519 


* INTERRUPTED CODE. HOWEVER, WHEN THE 


USER IS 


INTERRUPTED, 


000520 


* BY EITHER A SOS CALL OR 


AN INTERRUPT, 


THE DISPATCHER 


000521 


* MUST CHECK THE EVENT QUEUE. IF THERE 


IS 


AN ACTIVE EVENT 


000522 


* WITH A PRIORITY HIGHER THAN THE CURRENT EVENT 


FENCE, 


000523 


* CONTROL IS PASSED TO THE EVENT CODE. 


OTHERWISE, CONTROL 


000524 


* RETURNS TO THE INTERRUPTED CODE. 








000525 


* 










000526 


REP 


60 








000527 


* 










000528 


DISPATCH EQU 


* 








000529 


* 










000530 


* DISABLE INTERRUPTS AND RESTORE 








000531 


* SYSTEM CONTROL REGISTERS B S Z 








000532 


* 










000533 


SEI 










000534 


LDA 


E.REG 








000535 


ORA 


#BIT0N6 






/ENABLE I/O 


000536 


STA 


E.REG 








000537 


PLA 










000538 


JSR 


SELC800 






/RESTORE I/O SPACE 


000539 


PLA 










000540 


STA 


B.REG 








000541 


PLA 










000542 


STA 


Z .REG 








000543 












000544 


* CHECK SAVED ENVIRONMENT 


REGISTER 








000545 


* IF RETURNING TO PRIMARY 


STACK 








000546 


* THEN RESTORE E REG AND RELAUNCH SOS 








000547 


* ELSE RESET STACK POINTER S RESTORE 


E REG 




000548 


* 










000549 


PLA 










000550 


ORA 


#BIT0N5 






;SET SCREEN STATE TO 


000551 


BIT 


SCRNMODE 






; CURRENT SCREEN MODE 


000552 


BMI 


DSP005 








000553 


AND 


#BIT0FF5 








000554 


DSP005 TAY 










000555 


AND 


#BIT0N2 








000556 


BEQ 


DSPOlO 








000557 


STY 


E.REG 








000558 


BNE 


DSP03a 








000559 


DSPOlO PLA 










000560 


TAX 










000561 


TXS 










000562 


STY 


E.REG 
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000563 


* 






000564 




CHECK FOR ACTIVE EVENT WITH PRIORITY > FENCE 


000565 


* 






000566 


DSP020 LDA 


CEVPRI 


000567 




LDX 


EVQ . LINK 


000568 




CMP 


EVQ.PRI,X 


000569 




BCS 


DSP030 


000570 








000571 




PROCESS ACTIVE EVENT 


TRAP 


000572 




SAVE E, Z, B, S CALLER'S PRIORITY ON STACK THEN CALL 


000573 




EVENT. UPON RETURN, 


RESTORE PRIORITY, B, Z, & E THEN 


000574 




CHECK FOR MORE EVENTS 




000575 








000576 




LDA 


E.REG 


000577 




PHA 




000578 




LDA 


Z . REG 


000579 




PHA 




000580 




LDA 


B . REG 


000581 




PHA 




000582 




LDA 


CEVPRI 


000583 




PHA 




000584 




JSR 


DO . EVENT 


000585 




SEI 




000586 




PLA 




r\ 1^ r\ c ci ^ 

000587 




STA 


CEVPRI 


000588 




PLA 




000589 




STA 


B . REG 


000590 




PLA 




000591 




STA 


Z . REG 


000592 




PLA 




000593 




ORA 


ffBITONS ; SET SCREEN 


000594 




BIT 


SCRNMODE ; CURRENT 


000595 




BMI 


DSP025 


000596 




AND 


#BIT0FF5 


000597 


DSP025 STA 


E . REG 


000598 




JMP 


DSP020 


000599 








000600 




RESTORE CPU REGISTERS 


Y, X, & A AND LAUNCH 


000601 


* 






000602 


DSP030 PLA 




000603 




TAY 




000604 




PLA 




000605 




TAX 




000606 




PLA 




000607 




RTI 




000608 




PAGE 




000609 




REP 


60 


000610 


* 






000611 


* 


THIS SUBROUTINE CALLS 


THE HIGHEST PRIORITY ACTIVE EVENT. 


000612 


* 


FIRST, IT DELINKS THE 


FIRST ENTRY ON THE ACTIVE LIST AND 


000613 


* 


LINKS IT TO THE FREE 


LIST. THEN, IT SETS UP THE BANK, 


000614 


* 


ADDRESS, ID, S STATUS 


AND CALLS THE EVENT VIA AN RTI. 


000615 


* 






000616 




REP 


60 


000617 








000618 


DO 


EVENT EQU 


* 


000619 


* 






000620 


* 


WRITE ENABLE RAM 




000621 


* 






000622 




LDY 


E.REG 


000623 




TYA 




000624 




AND 


#BIT0FF3 


000625 




STA 


E.REG 


000626 








000627 


* 


DELINK ENTRY FROM ACTIVE LIST AND RELINK IT TO FREE LIST 


000628 


* 






000629 




LDX 


EVQ . LINK 


000630 




LDA 


EVQ. LINK, X 


000631 




STA 


EVQ . LINK 


000632 




LDA 


EVQ . FREE 


000633 




STA 


EVQ. LINK, X 


000634 




STX 


EVQ . FREE 


000635 








000636 




SET FENCE TO EVENT PRIORITY THEN RESTORE E REG 


000637 


* 






000638 




LDA 


EVQ.PRI,X 


000639 




STA 


CEVPRI 


000640 




STY 


E.REG 


000641 


* 






000642 


* 


SET UP B, Z, E, ADDRESS, ID, & STATUS 


000643 


* 
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000644 


LDA 


EVQ . BANK, X 


000645 


STA 


B . REG 


000646 


LDA 


EVQ . ADRH , X 


000647 


PHA 




000648 


LDA 


EVQ . ADRL , X 


000649 


PHA 




A A A C A 

000650 


LDY 


EVQ . ID, X 


000651 


PHP 




000652 


PLA 




000653 


AND 


#$82 


000654 


PHA 




000555 


TYA 




000556 


RTI 




000557 






000558 


CHN 


IPL.SRC2 


000659 






000660 




*:^**:^******************************************* 


000661 


* END OF APPLE /// SOS 1. 


3 SOURCE CODE FILE: IPL.SRCl 


000662 


************************************************************************* 



000663 
000564 

End of File — Lines: 654 Characters: 17425 
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FILE: "SOS. IPL.SRC2. TEXT" 



A A A T 


**************************************************************** 


A A A A n 


* 


APPLE 


/// SOS 1.3 SOURCE CODE FILE: IPL.SRC2 


000003 








000004 


* 


ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 








000006 






SBTL "SYSTEM INTERNAL RESOURCES" 


A A A A A 

000007 






REP 60 


A A A A A n 

000008 


* 






000009 


* 


SYSTEM INTERNAL RESOURCE NUMBERS 


A A A A T A 

000010 


* 






A A A A T T 

000011 


* 






000012 




SIR 


RESOURCE 


000013 








000014 







SOUND PORT / I/O NMI 


000015 


* 


1 


ACTA 


A A A A T 

000016 


* 


2 


E . CA2 — KEYBOARD 


000017 


* 


3 


E . CAl — CLOCK 


000018 


* 


4 


E.SR 


000019 




5 


E . CB2 — VBL + 


000020 


* 


6 


E.CBl — VBL - 


000021 




7 


E.T2 


000022 




8 


E.Tl 


000023 




9 


D.CA2 — CSP INPUT FLAG / INPUT SWITCH 1 


000024 


* 


A 


D.CAl — ANY SLOT (RESERVED FOR SOS) 


A A A A A C 

000025 


* 


B 


D.SR — CSP DATA REGISTER 


A A A A A 

000026 


* 


C 


D.CB2 — CSP DATA I/O / ENSIO 


000027 


* 


D 


D.CBl — CSP CLOCK / ENSEL / A/D SELECT / INPUT SW3 


A A A A A n 

000028 




E 


D.T2 


000029 




F 


D.Tl 


000030 




10 


DISK STEPPER / GRAPHICS SCROLL / CHARACTER DOWNLOAD 


000031 




11 


SLOT 1 


000032 


* 


12 


SLOT 2 


A A A A O 

000033 


* 


13 


SLOT 3 


A A A A O A 

000034 


* 


14 


SLOT 4 


A A A A O IT 

000035 


* 


15 


(UNASSIGNED) 


000036 


* 


16 


(UNASSIGNED) 


A A A A O T 

000037 




17 


(UNASSIGNED) 


000038 


* 






000039 






REP 60 


000040 






SBTL "RESOURCE ALLOCATION & DEALLOCATION" 


000041 






REP 60 


000042 


* 






A A A A A O 

000043 


* 


RESOURCE ALLOCATION AND DEALLOCATION 


000044 


* 






000045 


* 


SIRS ARE ALLOCATED AND DEALLOCATED BY THE SUBROUTINES 


000046 




'ALLOCSIR' AND 'DEALCSIR'. THE RESOURCE PARAMETERS ARE 


000047 




PASSED IN A TABLE THAT CONTAINS ONE FIVE-BYTE ENTRY FOR 


000048 




EACH SIR THAT IS TO BE ALLOCATED OR DEALLOCATED. THE 


000049 




TABLE ENTRY FORMAT IS SHOWN BELOW: 


000050 


* 






000051 


* 




12 3 4 


A A A A C O 

000052 


* 






A A A A C 

000053 


* 




1 SIR # 1 ID 1 ADR.L 1 ADR.H | ADR.B | 


000054 


* 






A A A A C IT 

000055 


* 






A A A A r 

000056 


* 


SIR 


# — SYSTEM INTERNAL RESOURCE NUMBER 


000057 




ID 


— IDENTIFICATION BYTE 


000058 


* 




SUPPLIED BY ALLOCSIR, CHECKED BY DEALCSIR 


000059 


* 


ADR 


— INTERRUPT ADDRESS (LOW, HIGH, BANK) 


000060 


* 




ZERO IF NO INTERRUPT HANDLER 


A A A A ^ T 

000061 








000062 


* 






000063 


* 


ALLOCSIR — ALLOCATE SYSTEM INTERNAL RESOURCES 


000064 


* 






000065 


* 


PARAMETERS : 


000066 


* 




A: NUMBER OF BYTES IN TABLE 


000067 


* 




X: TABLE ADDRESS (LOW BYTE) 


000068 


* 




Y: TABLE ADDRESS (HIGH BYTE) 


000069 


* 






000070 


* 


NORMAL EXIT — SIRS ALLOCATED 


000071 


* 




CARRY : CLEAR 


000072 


* 




A, X, Y: UNDEFINED 


000073 


* 






000074 


* 


ERROR EXIT — SIRS NOT ALLOCATED 


000075 






CARRY : SET 


000076 


* 




X: SIR NUMBER 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



A, Y: UNDEFINED 



EALCSIR — DEALLOCATE SYSTEM INTERNAL RESOURCES 

PARAMETERS : 

A: NUMBER OF BYTES IN TABLE 
X: TABLE ADDRESS (LOW BYTE) 
Y: TABLE ADDRESS (HIGH BYTE) 

NORMAL EXIT — SIRS DEALLOCATED 
CARRY : CLEAR 
A, X, Y: UNDEFINED 

ERROR EXIT — SIRS NOT DEALLOCATED 
CARRY : SET 
X: SIR NUMBER 
A, Y: UNDEFINED 



ASIROlO 



ASIR020 
ASIR030 



REP 
PAGE 

DFB 

EQU 
CLC 
PHP 
SEI 
STA 
LDA 
STA 
ORA 
AND 
STA 
LDA 
PHA 
LDA 
PHA 
LDA 
STA 
STX 
STY 

LDY 
LDA 
CMP 
TAX 
BCS 
LDA 
EMI 
LDA 
STA 
INY 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
CPY 
BCC 

CLC 
INC 

BMI 
LDA 
STA 
BMI 

STX 
SEC 
TYA 
SBC 
TAY 
BCC 
LDA 



60 



$81 



SIRARGSIZ 

E.REG 

SIRTEMP 

#BIT0N2 

#BIT0FF3 

E.REG 

SIRTEMP 

Z.REG 

#$00 
Z.REG 
SIRARGS 
SIRARGS+1 

#$00 

(SIRARGS) ,Y 
#SIRTBLSIZ 

ASIR020 

SIRTABLE,X 

ASIR020 

IDBYTE 

SIRTABLE,X 

(SIRARGS) , Y 

(SIRARGS) ,Y 
SIRADR.L,X 

(SIRARGS) , Y 
SIRADR.H,X 

(SIRARGS) , Y 
SIRADR.B,X 

SIRARGSIZ 
ASIROlO 



IDBYTE 

SIREXIT 
#$81 
IDBYTE 
SIREXIT 



#5 



ASIR040 
(SIRARGS) ,Y 



;SAVE TABLE SIZE 



/FORCE PRIMARY STACK 
; AND WRITE ENABLE 



;SET ZERO PAGE := $00 
;SET POINTER TO TABLE 

;GET SIR NUMBER 

; CHECK ALLOCATION 

/ALLOCATE SIR 
/RETURN ID BYTE 

;SAVE INTERRUPT ADDRESS 



;BUMP ID BYTE 



;SAVE BAD SIR NUMBER 



;GET SIR NUMBER 
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000158 


TAX 






000159 


LDA 


# FALSE 




000160 


STA 


SIRTABLE, X 


; RELEASE ALLOCATED SIRS 


000161 


BEQ 


ASIR030 




000162 








000163 


ASIR040 LDX 


SIRTEMP 


; RETURN BAD SIR 


000164 


SEC 






000165 








000166 








000167 








000168 


SIREXIT PLA 






000169 


STA 


Z .REG 


; RESTORE Z REGISTER 


000170 


PLA 






000171 


STA 


E .REG 


; RESTORE E REGISTER 


000172 


BCC 


SIREXITl 




000173 


PLA 






000174 


ORA 


#BITON0 




000175 


PHA 






000176 


SIREXITl PLP 






000177 


RTS 






000178 








000179 








000180 








000181 


DEALCSIR EQU 






000182 


CLC 






000183 


PHP 






000184 


SEI 






000185 


STA 


SIRARGSIZ 


;SAVE TABLE SIZE 


000186 


LDA 


E . REG 




000187 


STA 


SIRTEMP 




000188 


ORA 


#BIT0N2 


; FORCE PRIMARY STACK 


000189 


AND 


#BIT0FF3 


; AND WRITE ENABLE 


000190 


STA 


E.REG 




ouuiyi 


LDA 


SIRTEMP 




000192 


PHA 






000193 


LDA 


Z . REG 




000194 


PHA 






000195 


LDA 


#$00 




000196 


STA 


Z .REG 


;SET ZERO PAGE := $00 


000197 


STX 


SIRARGS 




000198 


STY 


SIRARGS+1 


; SET POINTER TO TABLE 


000199 








000200 


LDY 


#$00 




000201 


DSIROlO LDA 


(SIRARGS) , Y 


;GET SIR NUMBER 


000202 


TAX 






000203 


CPX 


#SIRTBLSIZ 




000204 


BCS 


DSIR030 




000205 


INY 






000206 


LDA 


SIRTABLE,X 




000207 


BPL 


DSIR030 


;VERIFY ALLOCATION 


000208 


CMP 


(SIRARGS) , Y 




000209 


BNE 


DSIR030 




000210 


INY 






000211 


INY 






000212 


INY 






000213 


INY 






000214 


CPY 


SIRARGSIZ 




000215 


BCC 


DSIROlO 




000216 








000217 


LDY 


SIRARGSIZ 




000218 


DSIR020 SEC 






000219 


TYA 






000220 


SBC 


#5 




000221 


TAY 






000222 


BCC 


SIREXIT 




000223 


LDA 


(SIRARGS) , Y 


;GET SIR NUMBER 


000224 


TAX 






000225 


LDA 


# FALSE 




000226 


STA 


SIRTABLE,X 




A A A O O ^ 

000227 


BEQ 


DSIR020 




000228 








000229 


DSIR030 SEC 






000230 


BCS 


SIREXIT 




000231 


SBTL 


"SELECT I/O EXPANSION 


ROM" 


000232 


REP 


60 




000233 


* 






000234 


* SUBROUTINE 'SELCBOO 


' IS CALLED TO SELECT THE 


C800 I/O EX- 


000235 


* PANSION ADDRESS SPACE FOR A PERIPHERAL SLOT. 


ON ENTRY, 


000236 


* THE SLOT NUMBER IS 


PASSED IN THE ACCUMULATOR. 


IF NO 


000237 


* ERROR OCCURS, CARRY 


IS CLEARED; OTHERWISE, CARRY IS SET 


000238 


* AND THE PREVIOUS SLOT REMAINS SELECTED. 
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000239 
















000240 




PARAMETERS : 












000241 




A: SLOT NUMBER 












000242 
















000243 




NORMAL EXIT — NEW 


SLOT 


SELECTED 








000244 




CARRY: CLEAR 












000245 




A: UNDEFINED 












000246 




X, Y: UNCHANGED 












000247 
















000248 




ERROR EXIT — SLOT 


NOT 


CHANGED 








000249 


* 


CARRY : SET 












000250 


* 


A, X, Y: UNCHANGED 










000251 


* 














000252 


* 


WARNING ! ! ! 












000253 


* 


'SELC800' USES SELF-MODIFYING CODE! 








000254 


* 














000255 




REP 




60 








000256 


* 














000257 


SELC800 EQU 




* 








000258 




CMP 




#$05 






; CHECK SLOT NUMBER 


000259 




BCS 




SC8EXIT 






; INVALID 


000260 




PHP 












000261 




SEI 












000262 




STA 




EXPNSLOT 












ORA 




#$co 






;MAKE SLOT INTO $CN00 


0002 64 




STA 




CNADDR+2 






; AND MODIFY BIT ADDRESS 


0002 65 




BIT 




$C020 








000266 




BIT 




$CFFF 






.■DESELECT PREVIOUS SLOT 


000267 


CNADDR BIT 




$COFF 






; AND SELECT CURRENT SLOT 


000268 




PLP 












000269 


SC8EXIT RTS 












000270 




SBTL 




"NMI DISABLE / 


ENABLE 




000271 




REP 




60 








000272 


* 














000273 




THE SUBROUTINES NMIDSBL 


AND NMIENBL ARE 


CALLED TO 


000274 




DISABLE AND ENABLE 


NMI, 


RESPECTIVELY. 


THERE 


ARE NO 


000275 


* 


INPUT PARAMETERS. 


ON EXIT, THE REGISTERS 


ARE 


UN- 


000276 




DEFINED. NMIDSBL CLEARS THE CARRY FLAG 


IF 


NMI WAS 


000277 


* 


SUCCESSFULLY DISABLED; 


OTHERWISE, CARRY 


IS 


SET. 


000278 


* 














000279 




REP 




60 








000280 


* 














000281 


NMIDSBL EQU 












000282 




LDX 




E.REG 








000283 




BIT 




NMI FLAG 








000284 




BPL 




NDS02a 








000285 




TXA 












000286 




ORA 




#BIT0N7 








000287 




STA 




E.REG 






;SET IMHZ 


000288 




LDA 




#$00 








000289 




STA 




NMICNTR 








000290 




STA 




NMICNTR+1 








000291 


NDSOlO BIT 




NMI FLAG 






;NMI PENDING? 


000292 




BPL 




NDS020 






; NO 


000293 




INC 




NMICNTR 






;BUMP NMI COUNTER 


000294 




BNE 




NDSOlO 






; AND RECHECK NMI FLAG 


000295 




INC 




NMICNTR+1 








000296 




BNE 




NDSOlO 








000297 




LDA 




#>NMIHANG 






/CAN'T LOCK NMI 


000298 




JSR 




SYSDEATH 








000299 


NDS020 TXA 










;GET E.REG 


000300 




AND 




#BIT0FF4 






/DISABLE NMI 


000301 




STA 




E.REG 








000302 




RTS 












000303 


* 














000304 


* 














000305 


* 














000306 


NMIENBL EQU 




* 








000307 




LDA 




E.REG 








000308 




ORA 




#BIT0N4 






/ENABLE NMI 


000309 




STA 




E.REG 












RTS 












000311 




SBTL 




"KEYBOARD NMI HANDLER 




000312 




REP 




60 








000313 


* 














000314 


* 


BY DEFAULT, KEYBOARD NMI IS IGNORED. THE 


USER MAY 


000315 


* 


PROCESS NMI BY CHANGING 


THE ADDRESS IN 


SYSTEM 


GLOBAL. 


000316 


* 














000317 




REP 




60 








000318 
















000319 


NMIDBUG EQU 




* 
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000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 
000392 
000393 
000394 
000395 
000396 
000397 
000398 
000399 
000400 



TSX 
STX 
LDA 
STA 
LDA 
ORA 
STA 
JSR 

EQU 

LDA 

ORA 

STA 

LDX 

TXS 

RTS 

SBTL 

REP 



NMISPSV 

#$03 

Z.REG 

E.REG 

#$03 

E.REG 

$F901 



E.REG 
#BIT0N2 
E.REG 
NMISPSV 



;SAVE THE STACK POINTER 
/SELECT MONITOR'S ZERO PAGE 

/SELECT MONITOR ROM 
;CALL THE MONITOR 

/FORCE PRIMARY STACK 
/RESTORE STACK POINTER 



"EVENT QUEUE MANAGER" 

60 



THE EVENT QUEUE IS USED TO HOLD THE PARAMETERS OF EVENTS 
THAT HAVE BEEN DETECTED BUT NOT YET RECOGNIZED. EVENT 
QUEUE ENTRIES ARE ORGANIZED INTO TWO LINKED LISTS; A FREE 
LIST AND AN ACTIVE LIST. EACH ENTRY IS SIX BYTES LONG, 
WITH THE FIRST BYTE (BYTE 0) USED AS A LINK. THE LINK 
BYTE CONTAINS THE TABLE INDEX OF THE NEXT ENTRY IN THE 
LIST. BECAUSE OF THE INDEXING METHOD, THE EVENT QUEUE 
MUST NOT EXCEED 256 BYTES. 

ENTRY ZERO IS A SPECIAL ENTRY. BYTE IS THE INDEX OF 
THE FIRST ACTIVE ENTRY; BYTE 1 CONTAINS A ZERO, ALLOWING 
ENTRY TO BE USED AS THE ACTIVE EVENT LIST TERMINATER; 
BYTE 2 CONTAINS THE INDEX OF THE FIRST FREE ENTRY; AND 
BYTES 4 THROUGH 6 ARE UNUSED. 

THE FREE LIST IS LINKED LIFO. THE ONLY VALID BYTE IN A 
FREE ENTRY IS THE LINK BYTE; THE REMAINING BYTES ARE 
UNDEFINED. THE FREE LIST IS TERMINATED BY A LINK BYTE 
CONTAINING A ZERO. 

THE ACTIVE LIST IS LINKED IN DECREASING PRIORITY ORDER 
WITH ENTRIES OF EQUAL PRIORITY LINKED FIFO. BYTES 1 
THROUGH 5 CONTAIN THE EVENT PRIORITY, EVENT ID, LOW BYTE 

OF THE EVENT ADDRESS, HIGH BYTE OF THE EVENT ADDRESS, AND 
THE ADDRESS BANK. THE ACTIVE LIST IS TERMINATED BY AN 
ENTRY WITH AN EVENT PRIORITY OF ZERO. 



REP 

PAGE 

REP 



60 



60 



SUBROUTINE 'QUEEVENT' IS USED TO ENTER AN EVENT INTO THE 

EVENT QUEUE. ACTIVE EVENTS ARE LINKED IN DECREASING 
PRIORITY ORDER WITH EVENTS OF EQUAL PRIORITY LINKED FIFO. 
EVENTS ARE REMOVED FROM THE QUEUE AS THEY ARE RECOGNIZED 
BY THE DISPATCHER. 

PARAMETERS : 

X: EVENT PARAMETER ADDRESS (LOW BYTE) 
Y: EVENT PARAMETER ADDRESS (HIGH BYTE) 



EVENT 
PARMS: 



I 



12 3 4 

+ + + + 

PRI I ID I ADR.L I ADR.H | ADR.B 



-+- 



-+- 



PRI: EVENT PRIORITY 
ID: EVENT ID BYTE 

ADR: EVENT ADDRESS (LOW, HIGH, BANK) 



EXIT CONDITIONS: 
CARRY: CLEAR 
A, X, Y: UNDEFINED 



QUEEVENT 



REP 

EQU 
CLC 
PHP 
SEI 

LDA 
STA 
ORA 



60 



E.REG 

QEVTEMP 

#BIT0N2 



; FORCE PRIMARY STACK 
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AND 


#BIT0FF3 


; AND WRI TE ENABLE 


000402 




STA 


E . REG 




00040i 




LDA 


QEVTEMP 




A A A /I A /I 

0UU4U4 




PHA 






000405 




LDA 


Z .REG 




AAA fl A 

000406 




PHA 






000407 




LDA 


#0 




A n A /I A o 




STA 


Z . REG 


; SET ZERO PAGE : = 


000409 










000410 




STX 


QEVARGS 




000411 




STY 


QEVARGS+1 


;SET ARGUMENT POINTER 


000412 




LDY 


#0 




A A A /I T O 

00041 J 




LDA 


( QEVARGS ) / Y 


; GET PRIORITY 


000414 




BEQ 


Q.EXIT 


; IGNORE IF ZERO 


000415 










A A A yi 1 

000416 




LDX 


EVQ . FREE 




000417 




BEQ 


Q . FULL 




000418 




STX 


QEV. THIS 


;GET FIRST FREE ENTRY 


000419 




LDA 


EVQ . LINK, X 


; AND DELINK IT 


000420 




STA 


EVQ . FREE 




000421 










A A A /I O O 

00U4ZZ 




LDY 


ffEVQ . SIZ-2 




A A A yi O 

00042 J 


QE VO 1 


LDA 


(QEVARGS) , Y 


;COPY ARGUMENTS 


000424 




STA 


EVQ .BANK, X 


; INTO NEW ENTRY 


A A A yi O C 

0004zo 




DEX 






000426 




DEY 






A A A /I ^ 

0UU4z / 




BPL 


QEVOlO 




000428 










000429 




LDX 


QEV. THIS 




AAA A OA 

000430 




LDY 


#0 




AAA A O T 

0004J1 


QEV020 


STY 


QEV . LAST 




AAA A O O 

0004J2 




LDA 


EVQ . LINK, Y 




000433 




TAY 






000434 




LDA 


EVQ . PRI , Y 


; SCAN EVENT QUEUE 


000435 




CMP 


EVQ . PRI , X 


; FOR PROPER POSITION 


000436 




BCS 


QEV020 




000437 










000438 




TYA 






000439 




STA 


EVQ . LINK, X 


; RELINK EVENT INTO QUEUE 


000440 




TXA 






000441 




LDY 


QEV . LAST 




000442 




STA 


EVQ . LINK, Y 




000443 










000444 


Q.EXIT 


PLA 






000445 




STA 


Z . REG 


;RESTORE Z REGISTER 


000446 




PLA 






000447 




STA 


E . REG 


;RESTORE E REGISTER 


000448 




PLP 






000449 




RTS 






000450 










000451 


Q. FULL 


LDA 


#>EVQOVFL 


; EVENT QUEUE OVERFLOW 


000452 




JSR 


SYS DEATH 




000453 




LST 


ON 




000454 










000455 


ZZEND 


EQU 






000456 


ZZLEN 


EQU 


ZZEND-ZZORG 




000457 




IFNE 


ZZLEN-LENIPL 




000458 




FAIL 


2,"S0S0RG 


FILE IS INCORRECT FOR IPL 


000459 




FIN 






000460 










000461 


*************** 








000462 


* END OF APPLE 


/// SO'S 


1 . 3 SOURCE CODE FILE 


IPL. SRC2 


000463 


*************** 






***************************** 


000464 










000465 











End of File — Lines: 465 Characters: 12364 
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FILE: " SOS. LC. TEXT" 



000001 

000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: LC 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



IFNE 
FAIL 
FIN 



ZZLEN-LEN???? 
2,"S0S0RG 



FILE IS INCORRECT FOR ??????" 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: LC 

************************************************************************* 



End of File — Lines: 13 Characters: 549 
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FILE: "SOS. LCHK. TEXT" 



000001 ************************************************************************* 

000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: LCHK 

000004 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
000005 

000006 INCLUDE SOSORG, 6, 1, 254 

000007 ORG ??????? 

000008 

000009 IFNE ZZLEN-LEN???? 

000010 FAIL 2, "SOSORG FILE IS INCORRECT FOR ?????? 

000011 FIN 
000012 

000013 ************************************************************************* 

000014 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: LCHK 

000015 ************************************************************************* 

000016 



End of File — Lines: 16 Characters: 643 
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FILE: "SOS.MEMMGR.A.SRC.TEXT' 



000001 


***************************************************** *****^ 






000002 


* APPLE /// SOS 1.3 SOURCE CODE FILE: MEMMGR.A. 


SRC 






000003 














000004 


* ASSEMBLER: APPLE ] [ 65 


02 ASSEMBLER from APPLE 


COMPUTER TOOLKIT 






000005 
















000006 


SBTL 


"SOS 1.1 MEMORY 


MANAGER" 






000007 


REL 














000008 


INCLUDE 


SOSORG, 6,1,254 












000009 


ORG 


ORGMEMMG 












000010 


ZZORG EQU 


* 












000011 


MSB 


OFF 












000012 


REP 


60 












000013 


* COPYRIGHT (C) 


APPLE COMPUTER INC 


1980 






000014 


* ALL 


RIGHTS RESERVED 












000015 


REP 


60 












000016 


* 














000017 


* MEMORY MANAGER (VERSION =1.10 ) 












000018 


* (DATE 


= 8/04/81) 












000019 


* 














000020 


* THIS MODULE CONTAINS ALL OF THE MEMORY MANAGEMENT SYSTEM 






000021 


* CALLS SUPPORTED BY THE 


SARA OPERATING SYSTEM. 




IT IS 






000022 


* ALSO CALLED BY THE BUFFER MANAGER. 












000023 
















000024 


REP 


60 












000025 
















000026 
















000027 
















000028 


ENTRY 


ST . CNT 












000029 


ENTRY 


ST . ENTRY 












000030 


ENTRY 


ST . FREE 












000031 


ENTRY 


ST . FLINK 












000032 


ENTRY 


VRT . LIM 












000033 
















000034 


EXTRN 


SYSERR 












000035 


EXTRN 


BADSCNUM 












000036 


EXTRN 


BADBKPG 












000037 


EXTRN 


SEGRQDN 












000038 


EXTRN 


SEGTBLFULL 












000039 


EXTRN 


BADSEGNUM 












000040 
















000041 


EXTRN 


BADSRCHMODE 












000042 


EXTRN 


BADCHGMODE 












000043 


EXTRN 


BADPGCNT 












000044 


PAGE 














000045 


REP 


60 












000046 


* 














000047 


* SEGMENT TABLE 














000048 


* (NOTE: ENTRY IS NOT 


USED) 












000049 
















000050 


REP 


60 












000051 


* 














000052 


ST. FREE DS 


1 






PTR TO FIRST FREE SEG TABLE ENTRY 




000053 


ST. ENTRY DS 


1 






PTR TO HIGHEST ALLOC SEG TABLE ENTRY 


000054 


ST.SIZ EQU 


7 












000055 


ST . CNT EQU 


32 












000056 


ST.TBL DS 


ST.SIZ*ST.CNT 












000057 


ST. BLINK EQU 


ST.TBL 






BACK LINK TO PREV ALLOC 


SEG ENTRY 




000058 


ST.FLINK EQU 


ST.BLINK+ST.CNT 






FORWARD LINK 






000059 


ST. BASEL EQU 


ST.FLINK+ST.CNT 






BASE BANK/PAGE 






000060 


ST . BASEH EQU 


ST.BASEL+ST.CNT 












000061 


ST . LIML EQU 


ST.BASEH+ST.CNT 






LIMIT BANK/PAGE 






000062 


ST . LIMH EQU 


ST . LIML+ST . CNT 












000063 


ST. ID EQU 


ST . LIMH+ST . CNT 






SEG ID 






000064 


PAGE 














000065 


REP 


60 












000066 
















000067 


* DATA DECLARATIONS 














000068 


* 














000069 


REP 


60 












000070 


* 














000071 


ZPAGE EQU 


$40 






BEGINNING OF ZPAGE TEMP 


SPACE FOR 


MEMORY MANAGER 


000072 


VRT.BASE EQU 


$0 






INTERNAL BK/PG PTR TO LOWEST VIRT 


PAGE 


000073 


VRT . LIM EQU 


ZPAGE+$0 






S$l, INTERNAL BK/PG PTR 


TO HIGHEST 


VIRT PAGE 


000074 


PHYIBASE EQU 


$0780 






BANK "F",PAGE "0" 






000075 


PHYILIM EQU 


$079F 






BANK "F",PAGE "IF" 






000076 


PHY2BASE EQU 


$0820 






BANK "10", PAGE "AO" 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



PHY2LIM 
* 




EQU 


$087F 


BANK "10", PAGE "FF" 


* REQUEST. 
* 


SEG 


DATA DECLARATIONS 




M.TPARMX 




EQU 


$60 


BEGINNING ADDRESS OF MMGR SOS CALL PARMS 


M.RQCODE 




EQU 


M.TPARMX 




RQ . BASE 




EQU 


M.TPARMX+1 


BASE . BANK/ PAGE 


RQ.LIM 




EQU 


M.TPARMX+3 


LIMIT . BANK/PAGE 


RQ. ID 




EQU 


M.TPARMX+5 




RQ.NUM 
* 




EQU 


M.TPARMX+6 




RQ. REGION 
* 




EQU 


ZPAGE+$2 


VRT ( ) , PHYO ( 1 ) , PHYl (2 ) 


* FIND.SEG DATA DECLARATIONS 




SRCHMODE 




EQU 


M.TPARMX+1 


bbAKCn MOLIh. ( U , 1 , z J 


F. ID 




EQU 


M.TPARMX+2 


SEG ID 


F . PGCT 




EQU 


M.TPARMX+3 


PAGE COUNT ( LO 


FX.PGCT 




EQU 


ZPAGE+$3 


&94, llMihjKWAL i^AGCj CUUINi 


F . BASE 




EQU 


M.TPARMX+5 


BASE . BANK / PAGE 


F.LIM 




EQU 


M.TPARMX+7 


LIMIT . BANK/PAGE 


F.NUM 




EQU 


M.TPARMX+9 


bEG IN UM 


F.ERR 




EQU 


ZPAGE+$5 


ERROR FLAG 


TRUE 




EQU 


$80 




FALSE 




EQU 


$0 




CFS.PGCT 




EQU 


ZPAGE+$6 


&7, CURRENT FREE SEGMENT'S PAGE COUNT 


CFS.BASE 




EQU 


ZPAGE+$8 


& 9 , " BASE . BANK/ PAGE 


CFS.LIM 




EQU 


ZPAGE+$A 


fx^a, LlMl I . DAWK/ PAGE 


CFS. BLINK 




EQU 


ZPAGE+$C 


" BACK LINK 


CFS.BASEO 




EQU 


ZPAGE+$D 


&$E, " BASE (SMODE=0) 


CFS. BASE 1 




EQU 


ZPAGE+$F 


&$10, " BASE (SM0DE=1) 


CFS. NEXT 




EQU 


ZPAGE+$11 


" NEXT ENTRY 


CFS . PREV 




EQU 


ZPAGE+$12 


" PREV ENTRY 


CFS . PTR 




EQU 


ZPAGE+$13 


&$14 " POINTER TO NXT FREE 


BFS . PGCT 




EQU 


ZPAGE+$15 


&$16, BIGGEST FREE SEGMENT'S PAGE COUNT 


BFS.BASE 




EQU 


ZPAGE+$17 


&$18 " BASE . BANK/PAGE 


BFS.LIM 




EQU 


ZPAGE+$19 


S$1A " LIMIT. BANK/PAGE 


BFS. BLINK 
* 




EQU 


ZPAGE+$1B 


" BACK LINK 


* CHANGE. SEG DATA DECLARATIONS 




CHG.NUM 




EQU 


M.TPARMX+1 


SEGNUM PARM 


CHG.MODE 




EQU 


M.TPARMX+2 


CnAlMGcj MULIh. FAKM 


CHG.PGCT 




EQU 


M.TPARMX+3 


PAGE COUNT PARM 


CHG.PGCTX 




EQU 


ZPAGE+$1C 


S$1D, INTERNAL STORE FOR PGCT 


CHG.NEW 
* 




EQU 


ZPAGE+$1E 


S$1F, BANK/PAGE OF SEG'S NEW LIMIT OR BASE 


* GET. SEG. 
* 


INFO DATA 


DECLARATIONS 




GSI.NUM 




EQU 


M.TPARMX+1 




GSI.BASE 




EQU 


M.TPARMX+2 




GSI .LIM 




EQU 


M.TPARMX+4 




GSI . PGCT 




EQU 


M.TPARMX+6 




GSI . ID 
* 




EQU 


M.TPARMX+8 




* GET. SEG. 
* 


NUM 


DATA DECLARATIONS 




GSN.BKPG 




EQU 


M.TPARMX+1 




GSN.NUM 
* 




EQU 


M.TPARMX+3 




* RELEASE. 
* 


SEG 


DATA DECLARATIONS 




RLS.NUM 




EQU 


M.TPARMX+1 


SEG NUM 


* REGION - 
* 


DATA DECLARATIONS 




RGN.BKPG 




DS 


2 


TEMP CONTAINER FOR BANK/PAGE 






PAGE 










REP 


60 





MMGR 



THIS ROUTINE IS THE MAIN ENTRANCE TO THE MEMORY MANAGER 
MODULE. IT FUNCTIONS AS A SWITCH, BASED UPON THE RECEIVED 
REQUEST CODE, TO TRANSFER CONTROL TO THE ROUTINE THAT 
HANDLES THE SPECIFIC SYSTEM CALL. 



EQU 
LDA 



60 



M.RQCODE 
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000158 




BEQ 


MMGRO 10 ; 


"REQ. SEG" 


000159 




CMP 


#1 




000160 




BEQ 


MMGRO 20 ; 


"FIND. SEG" 


000161 




CMP 


#2 




000162 




BEQ 


MMGRO 30 ; 


"CHANGE . SEG" 


OOOIdj 




CMP 


#3 




A Am f n 




BEQ 


MMGRO 40 ; 


"GET . SEG . INFO" 


000165 




CMP 


#4 




000156 




BEQ 


MMGRO 50 ; 


"GET . SEG. NUM" 


000157 




CMP 


#5 




000168 




BEQ 


MMGRO 60 ; 


"RELEASE . SEG" 


A A A T ^ A 

000169 


* 








A A A T T A 

000170 




LDA 


#BADSCNUM 




000171 




JSR 


SYSERR 




A A A T 

000172 


* 








A A A T "JO 
0001 / J 


MMGROlO JMP 


REQ. SEG 




000174 


MMGR020 JMP 


FIND. SEG 




000175 


MMGR030 JMP 


CHG.SEG 




000176 


MMGR040 JMP 


GET. SEG. INFO 




000177 


MMGR050 JMP 


GET.SEG.NUM 




000178 


MMGR060 JMP 


RELEASE . SEG 




000179 




PAGE 






A A A T A A 

OOOloO 




REP 


60 




A A A T AT 

OOOlol 


* 








A A A 1 A 

OOOloz 


* 


REQUEST . SEG ( IN . BASE . BANKPAGE .LIMIT . BANKPAGE , SEGID ; OUT . SEGNUM) 


000183 


* 








000184 




REP 


60 




000185 










000186 


REQ . SEG EQU 


* 




000187 


* 








A A A T O O 

OOOloo 


* 


CONVERT CALLER'S BASE. 


BANK/ PAGE TO INTERNAL FMT 




A A A T A A 

000189 


* 








A A A T A A 

000190 




LDX 


RQ.BASE 




A A A 1 AT 

000191 




LDY 


RQ.BASE+1 




0001 92 




JSR 


CNVRT . IBP 




000193 




BCC 


RQ005 




000194 










A A A 1 A (T 

000195 


RQ.ERR RTS 




ERR EXIT - INVALID BANK/ 


000196 


* 








A A A T A "7 

00019 / 


RQ005 STX 


RQ.BASE 




A A A T A A 

000198 




STY 


RQ.BASE+1 




000199 




STA 


RQ. REGION 




A A A A A A 

000200 


* 








000201 




CONVERT CALLER'S LIMIT 


.BANK/ PAGE TO INTERNAL FMT 


000202 


* 








000203 




LDX 


RQ.LIM 




000204 




LDY 


RQ.LIM+1 




000205 




JSR 


CNVRT . IBP 




A A A A A 

000206 




BCS 


RQ.ERR 


ERR - INVALID BANK/PAGE 


A A A A A "7 

000207 




STX 


RQ.LIM 




A A A A A A 

000208 




STY 


RQ.LIM+1 




000209 










000210 




IF BASE AND LIMIT ARE 


IN DIFFERENT REGIONS THEN 


ERR 


000211 










000212 




CMP 


RQ. REGION 




000213 




BNE 


RQ.ERRl 


ERR - INVALID BANK/PAGE 


000214 


* 


IF CALLER'S BASE > LIMIT THEN ERR 




A A A A T C 

000215 


* 








A A A A T 

000216 




LDA 


RQ.LIM 




000217 




CMP 


RQ.BASE 




A A A A T A 

000218 




LDA 


RQ.LIM+1 




000219 




SBC 


RQ.BASE+1 




000220 




BCC 


RQ . ERRl 


ERR - INVALID BANK/PAGE 


000221 










000222 




PREV SEGNUM :=NULL; NEXT SEGNUM: =FIRST ENTRY 




000223 


* 








A A A A A A 

000224 




LDX 


#0 




A A A A A C 

000225 




LDY 


ST. ENTRY 


NOTE: PREV/NEXT CARRIED 


A A A A A 

000226 


* 








A A A A A ^ 

000227 


* 


IF NO SEGS IN SEG TABLE THEN ALLOCATE REQUESTED 


SEG 


000228 


* 








UU U^iz y 




BEQ 


RQ030 




000230 










000231 




IF FIRST SEG IN SEG TABLE BELOW REQUESTED SEG 




000232 


* 


THEN ALLOCATE SEG 






000233 


* 








000234 




LDA 


ST.LIML, Y 




000235 




CMP 


RQ.BASE 




000236 




LDA 


ST.LIMH, Y 




000237 




SBC 


RQ.BASE+1 




000238 




BCC 


RQ030 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000305 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 



ADVANCE TO NEXT SEG ENTRY 



RQOlO 



TYA 
TAX 
LDA 

TAY 



ST.FLINK, Y 



IF THERE IS NO NEXT SEG ENTRY 

IF REQUESTED SEG IS BELOW PREV SEG 
THEN ALLOCATE REQ SEG 
ELSE ERR 



BNE 
LDA 

CMP 
LDA 
SBC 
BCC 



RQ020 
RQ.LIM 

ST. BASEL, 
RQ.LIM+1 
ST.BASEH, 
RQ030 

RQ.ERR2 



; ERR - SEGMENT REQUEST DENIED 



IF REQUESTED LIMIT >= PREV SEG'S BASE THEN ERR 



RQ020 



LDA 
CMP 
LDA 
SBC 
BCS 



RQ.LIM 
ST. BASEL, X 
RQ.LIM+1 
ST. BASER, X 
RQ.ERR2 



ERR - SEGMENT REQUEST DENIED 



IF REQUESTED BASE > NEXT SEG'S LIMIT 
THEN ALLOCATE REQUESTED SEGMENT 



RQ030 



LDA 
CMP 
LDA 
SBC 
BCS 

TXA 
JSR 
BCS 



ST.LIML, Y 
RQ . BASE 
ST.LIMH, Y 
RQ.BASE+1 
RQOlO 



GET . FREE 
RQ.ERR3 



NO, ADVANCE TO NEXT SEGMENT 
ALLOCATE REQUESTED SEGMENT 
ERR - SEG TABLE FULL 



ENTER BASE, LIMIT AND ID IN NEW SEG ENTRY 



TAX 
LDA 
STA 
LDA 
STA 

LDA 
STA 
LDA 
STA 

LDA 
STA 



RQ.BASE 
ST. BASEL, X 
RQ.BASE+1 
ST.BASEH,X 

RQ.LIM 
ST.LIML,X 
RQ.LIM+1 
ST.LIMH,X 

RQ.ID 
ST.ID,X 



* RETURN NEW SEG NUM TO CALLER AND RETURN 
#0 



RQ.ERRl 
RQ.ERR2 

RQ.ERR3 



LDY 
TXA 
STA 

CLC 
RTS 

LDA 

JSR 

LDA 
JSR 

LDA 
JSR 
PAGE 
REP 



(RQ.NUM) , Y 



#BADBKPG 

SYSERR 

tSEGRQDN 

SYSERR 

#SEGTBLFULL 
SYSERR 



; NORMAL EXIT 

; ERR EXIT 
; ERR EXIT 

; ERR EXIT 



60 



FIND . SEG ( IN . SRCHMODE , SEGID; INOUT . PAGECT ; 

OUT . BASE . BKPG, LIMIT . BKPG, SEGNUM) 
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000320 




REP 


60 




000321 


* 








000322 


FIND.SEG EQU 


* 




00032 J 










A A A O A A 

000324 




RETRIEVE PAGE COUNT 


PARAMETER AND CLEAR ERR FLAG 


000325 










A A A O 

000326 




LDY 


#0 




000327 




LDA 


(F. PGCT) , Y 




000328 




STA 


FX. PGCT 




000329 




I NY 






A A A t) A 

000330 




LDA 


(F.PGCT) , Y 




000331 




STA 


FX.PGCT+1 




A A A O O O 

000332 


* 








000333 




BNE 


FINDOOl 




A A A O O A 

000334 




LDA 


FX. PGCT 




A A A O O IT 

000335 




BNE 


FINDOOl 




A A A t) 

000336 




LDA 


tBADPGCNT 


; ERR, PAGECT= 


000337 




JSR 


SYSERR 




A n A "3 o o 

0U033o 










000339 


FINDOOl LDA 


#FALSE 




A A A O /I A 

000340 




STA 


F.ERR 




A A A O /IT 

000341 


* 








000342 


* 


IF SEARCH M0DE>2 THEN ERR 




A A A O A *?> 

000343 


* 








000344 




LDA 


SRCHMODE 




000345 




CMP 


#3 




000346 




BCC 


FIND005 




000347 




LDA 


tBADSRCHMODE 




000348 




JSR 


SYSERR 


; ERR EXIT 


000349 


* 








A A A O C A 

000350 


* 


INITIALIZE NEXT FREE 


SEGMENT SUBROUTINE, 




A A A O C T 

000351 


* 


AND BIGGEST FREE SEGMENT PAGE COUNT 




000352 


* 








A A A O C O 

000353 


FIND005 JSR 


NXTFRSEG. I 




A A A t) r A 

000354 




LDA 


#0 




000355 




STA 


BFS . PGCT 




000356 




STA 


BFS . PGCT+1 




000357 


* 








000358 


* 


GET NEXT FREE SEGMENT 




A A A O C A 

000359 


* 








000360 


FINDOlO JSR 


NXTFRSEG 




000361 




BCC 


FIND015 


; PROCESS FREE 


A A A t) A 

000362 


* 








000363 




NO MORE FREE SEGMENTS LEFT 




000364 


* 


RETURN BIGGEST FREE 


SEGMENT FOUND 




000365 


* 


ALONG WITH ERR 






A A A t) 

000366 


* 








A A A O ^ T 

000367 




LDA 


#TRUE 




A A A o ^ n 

000368 




STA 


F.ERR 




000369 




LDX 


#0 


; SEG#:=0 


000370 




JMP 


FIND070 




000371 










000372 




FREE SEGMENT FOUND. 






000373 




IF FREE SEGMENT > 


BIGGEST FREE SEGMENT THEN 


BFS : —CFS 


000374 










000375 


FIND015 LDA 


BFS . PGCT 




000376 




CMP 


CFS.PGCT 




000377 




LDA 


BFS . PGCT+1 




000378 




SBC 


CFS. PGCT+1 




A A A O T A 

000379 




BCS 


FIND030 




A A A t) O A 

0003o0 


* 








000381 




LDX 


#6 




000382 


FIND020 LDA 


CFS. PGCT, X 




000383 




STA 


BFS. PGCT, X 




000384 




DFX 






A A A O O IT 

000385 




BPL 


FIND020 




A A A O O 

000386 


* 








000387 


* 


IF BFS . PGCKF . PGCT THEN GET NEXT FREE SEGMENT 




A A A o o n 

000388 


* 








A A A O A 


FIND030 LDA 


BFS . PGCT 




000390 




CMP 


FX. PGCT 




000391 




LDA 


BFS. PGCT+1 




000392 




SBC 


FX.PGCT+1 




000393 




BCC 


FINDOlO 




000394 


* 








000395 


* 


BFS . BASE : =BFS . LIM-FX 


.PGCT+1 




000396 


* 


BFS . PGCT : =FX . PGCT 






000397 


* 








000398 




LDA 


BFS.LIM 




000399 




SBC 


FX. PGCT 




000400 




STA 


BFS. BASE 
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000401 


LDA 




BFS . LIM+1 


000402 


SBC 




FX. PGCT+1 


000403 


STA 




BFS . BASE+1 


000404 


INC 




BFS . BASE 


000405 


BNE 




FIND050 


000406 


INC 




BFS .BASE+1 


000407 


* 






000408 


FIND050 LDA 




FX . PGCT 


000409 


STA 




BFS . PGCT 


000410 


LDA 




FX. PGCT+1 


000411 


STA 




BFS . PGCT+1 


000412 


* 






A A yi T 

U0041J 


* DELINK ENTRY FROM 


FREE 


LIST, AND LINK 


000414 


* IT INTO SEGMENT LIST 




000415 


* 






000416 


LDA 




BFS .BLINK 


000417 


JSR 




GET . FREE 


000418 


BCC 




FIND060 


000419 


RTS 






000420 


* 






000421 


* ST.ID(NEW) :=F.ID 






000422 


* ST . BASE (NEW) : =BFS 


BASE 




000423 


* ST.LIM(NEW) :=BFS.LIM 




000424 


* 






000425 


FIND060 TAX 






000426 


LDA 




F . ID 


000427 


STA 




ST . ID, X 


000428 


* 






000429 


LDA 




BFS . BASE 


000430 


STA 




ST. BASEL, X 


000431 


LDA 




BFS. BASE+1 


000432 


STA 




ST.BASEH,X 


000433 


* 






000434 


LDA 




BFS.LIM 


000435 


STA 




ST.LIML,X 


000436 


LDA 




BFS. LIM+1 


000437 


STA 




ST.LIMH,X 


000438 


* 






000439 


* RETURN SEGNUM, PAGE COUNT, BASE BANK/ 


000440 


* TO CALLER 






000441 


FIND070 LDY 




#0 


000442 


TXA 






000443 


STA 




(F.NUM) , Y 


000444 


* 






000445 


LDA 




BFS . PGCT 


000446 


STA 




(F.PGCT) , Y 


000447 


INY 






000448 


LDA 




BFS . PGCT+1 


000449 


STA 




(F.PGCT) , Y 


000450 


* 






000451 


LDX 




BFS. BASE 


000452 


LDY 




BFS. BASE+1 


000453 


JSR 




CNVRT.XBP 


000454 


TYA 






000455 


LDY 




#1 


000456 


STA 




(F.BASE) , Y 


000457 


DEY 






000458 


TXA 






000459 


STA 




(F.BASE) , Y 


000460 


* 






000461 


LDX 




BFS.LIM 


000462 


LDY 




BFS. LIM+1 


000463 


JSR 




CNVRT.XBP 


000464 


TYA 






000465 


LDY 




#1 


000466 


STA 




(F.LIM) , Y 


000467 


DEY 






000468 


TXA 






000469 


STA 




(F.LIM) , Y 


000470 


* 






000471 


LDA 




F.ERR 


000472 


BNE 




FIND. ERR 


000473 


* 






000474 


CLC 






000475 


RTS 






000476 


* 






000477 


FIND. ERR LDA 




#SEGRQDN 


000478 


JSR 




SYSERR 


000479 








000480 


CHN 




MEMMGR.B.SRC 


000481 









SEG TABLE FULL 



IF ERR FLAG TRUE THEN REPORT IT. 



; NORMAL EXIT 



; ERR EXIT 
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000482 ************************************************************************* 

000483 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: MEMMGR.A.SRC 

000484 ************************************************************************* 

000485 
000486 

End of File — Lines: 486 Characters: 12629 
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FILE: "SOS. MEMMGR.B. SRC. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



***************************************************************** 

* APPLE /// SOS 1.3 SOURCE CODE FILE: MEMMGR.B. SRC 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



******** 



******** 



PAGE 
REP 



60 



* NEXT FREE SEGMENT - INITIALIZATION 
* 

* INPUT: SEGMENT TABLE 

* OUTPUT: CFS.PTR "1ST FREE BANK/PAGE IN VIRTUAL MEMORY 

* CFS.PREV "PREVIOUS SEGMENT EXAMINED" 

* CFS.NEXT "SEGMENT FOLLOWING CFS.PREV" 

* ERROR: NONE (IF NO FREE BK/PG FOUND, THEN CFS . PTR="FFFF" ) 



NXTFRSEG.I 

* 

* CFS.PTR : 

* CFS.PREV 

* CFS.NEXT 



REP 
EQU 

VRT . LIM 

= 

= ST. ENTRY 

LDA 
STA 
LDA 
STA 

LDA 
STA 

LDX 
STX 



60 



>VRT.LIM 
CFS . PTR 
>VRT.LIM+1 
CFS . PTR+1 

#0 

CFS . PREV 

ST. ENTRY 
CFS.NEXT 



* LO: IF CFS.NEXT=0 THEN DONE 
* 

FRSGIOlO BEQ FRSGI.EXIT 

* 

* IF ST. LIM (CFS. NEXT) <=VRT. LIM THEN GOTO LI 



LDA 
CMP 
LDA 
SBC 
ECS 



> VRT. LIM 
ST.LIML,X 
>VRT.LIM+1 
ST.LIMH,X 

FRSGI020 



* CFS. PREV :=CFS. NEXT 

* CFS. NEXT:=ST.FLINK(CFS. NEXT) 

* GOTO LO 



STX 
LDA 
TAX 
STX 

JMP 



CFS . PREV 
ST.FLINK,X 



CFS.NEXT 

FRSGIOlO 



LI: IF ST. LIM (CFS. NEXT ) <VRT. LIM THEN DONE 



FRSGI.EXIT 



LDA 
CMP 
LDA 
SBC 
BCC 



JSR 

RTS 

PAGE 

REP 



ST.LIML,X 

>VRT.LIM 

ST.LIMH,X 

>VRT.LIM+1 

FRSGI.EXIT 



; NORMAL EXIT 



60 



* NEXT FREE SEGMENT 



* INPUT: SEG TABLE 

* OUTPUT: CFS. BLINK 
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000077 


* CFS.BASE 




000078 


* CFS. LIMIT 




000079 


* CFS . PGCT 




000080 


* OWN: CFS.PREV 




000081 


* CFS. NEXT 




000082 


* CFS . PTR 




000083 


* 




000084 


* BUILDS A CANDIDATE FREE SEGMENT, WHOSE 


000085 


* THE CURRENT FREE PAGE 


(CFS . PTR) . 


000086 






000087 


REP 


60 


000088 






000089 


NXTFRSEG EQU 




000090 






000091 


* IF CFS . PTR="FFFF" THEN 


EXIT 


000092 






000093 


LDA 


CFS . PTR+1 


000094 


BPL 


FRSGOlO 


000095 


* 




000096 


SEC 




000097 


RTS 




000098 


* 




000099 


* CFS. BLINK :=CFS.PREV 




000100 


* CFS.LIM:=CFS.PTR 




000101 


* 




000102 


FRSGOlO LDA 


CFS . PREV 


000103 


STA 


CFS. BLINK 


000104 


* 




000105 


LDA 


CFS. PTR 


000106 


STA 


CFS.LIM 


000107 


LDA 


CFS. PTR+1 


000108 


STA 


CFS.LIM+1 


000109 


* 




000110 


* IF CFS.NEXT=0 THEN CFS 


.BASE:=0 


000111 


* ELSE CFS.BASE:=ST.LIM(CFS.NEXT)+1 


000112 


* 




000113 


LDA 


CFS. NEXT 


000114 


BNE 


FRSG020 


000115 


LDA 


#0 


000116 


STA 


CFS.BASE 


000117 


STA 


CFS.BASE+1 


000118 


BEQ 


FRSG030 


000119 


* 




000120 


FRSG020 LDX 


CFS. NEXT 


000121 


CLC 




000122 


LDA 


ST.LIML,X 


000123 


ADC 


#1 


000124 


STA 


CFS.BASE 


000125 


LDA 


ST.LIMH,X 


000126 


ADC 


#0 


000127 


STA 


CFS.BASE+1 


000128 


* 




000129 


* CFS.BASEO:=CFS.LIM AND 


$FF80 


000130 


* 




000131 


FRSG030 LDY 


CFS.LIM+1 


000132 


STY 


CFS.BASEO+1 


000133 


LDA 


CFS.LIM 


000134 


AND 


#$80 


000135 


STA 


CFS. BASED 


000136 


* 




000137 


* CFS.BASE1:=CFS.BASE0-32K 


000138 


* 




000139 


SEC 




000140 


SBC 


#$80 


000141 


STA 


CFS.BASEl 


000142 


TYA 




000143 


SBC 


#0 


000144 


STA 


CFS.BASEl+1 


000145 


BCS 


FRSG035 


000146 


LDA 


#0 


000147 


STA 


CFS.BASEl 


000148 


STA 


CFS.BASEl+1 


000149 






000150 


* IF CFS. BASE>=CFS. BASED 


THEN GOTO LI 


000151 


* 




000152 


FRSG035 LDA 


CFS.BASE 


000153 


CMP 


CFS. BASED 


000154 


LDA 


CFS.BASE+1 


000155 


SBC 


CFS.BASED+1 


000156 


BCS 


FRSG050 


000157 


* 





; EXIT - NO MORE FREE SEGMENTS LEFT 
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000158 




IF SEARCH MODE=0 THEN 


CFS . BASE : =CFS . BASEO 


000159 




GOTO LI 




000160 








A A A T ^ T 

000161 




LDA 


SRCHMODE 


A A A T ^ O 

000162 




BNE 


FRSG040 


A A A T ^ 

00016j 




LDA 


CFS .BASED 


A A A 1 A 

000164 




STA 


CFS . BASE 


000165 




LDA 


CFS . BASEO+1 


000166 




STA 


CFS .BASE+1 


000167 




JMP 


FRSG050 


A n A 1 f a 

000168 


* 






000169 


* 


IF CFS.BASE<CFS.BASE1 


AND SEARCH M0DE=1 


A A A T T A 

000170 


* 


THEN CFS.BASE:=CFS 


. BASEl 


000171 


* 






A A A T 

000172 


FRSG040 LDA 


CFS . BASE 


A A A T "1 O 

00017 J 




CMP 


CFS .BASEl 


000174 




LDA 


CFS . BASE+1 


000175 




SBC 


CFS .BASEl+1 


000176 




BCS 


FRSG050 


000177 


* 






000178 




LDA 


SRCHMODE 


000179 




CMP 


#1 


A A A T OA 

OOOloO 




BNE 


FRSG050 


A A A T O T 

OOOlol 


* 






A A A 1 Ci'^ 

OOOloz 




LDA 


CFS. BASEl 


000183 




STA 


CFS . BASE 


000184 




LDA 


CFS.BASEl+1 


000185 




STA 


CFS. BASE+1 


000186 


* 






000187 


* 


LI: CFS.PGCT:=CFS.LIM-CFS.BASE+1 


A A A T Ci d 

000188 


* 






000189 


FRSG050 SEC 




A A A T A A 

000190 




LDA 


CFS.LIM 


A A A 1 AT 

000191 




SBC 


CFS.BASE 


0001 92 




STA 


CFS . PGCT 


000193 




LDA 


CFS.LIM+1 


000194 




SBC 


CFS. BASE+1 


000195 




STA 


CFS.PGCT+1 


A A A T A 

000196 




INC 


CFS . PGCT 


000197 




BNE 


FRSG052 


A A A T A r> 

000198 




INC 


CFS . PGCT+1 


000199 


* 






A A A O A A 

000200 


* 


ADVANCE FREE PAGE POINTER TO NEXT FREE PAGE 


000201 


* 






000202 




IF SEARCH MODEOl THEN L2 : 


000203 








000204 


FRSG052 LDA 


SRCHMODE 


000205 




CMP 


#1 


A A A A 

000206 




BNE 


FRSG060 


A A A A 

000207 


* 






000208 


* 


IF CFS.BASE < CFS.BASEO THEN CFS . PTR: =CFS . BASEO- 


000209 


* 






000210 




LDA 


CFS . BASE 


000211 




CMP 


CFS.BASEO 


000212 




LDA 


CFS. BASE+1 


000213 




SBC 


CFS. BASEO+1 


000214 




BCS 


FRSG060 


A A A T C 

000215 


* 






000216 




LDY 


CFS. BASEO+1 


000217 




LDX 


CFS.BASEO 


A A A O T O 

000218 




BNE 


FRSG055 


000219 




DEY 




000220 


FRSG055 DEX 




000221 




STX 


CFS . PTR 


000222 




STY 


CFS.PTR+1 


A A A A 

000223 


* 






000224 




JMP 


FRSG070 


A A A A C 

000225 


* 


L2: CFS. PTR :=CFS. BASE 


-1 


000226 


* 






A A A 1 O "7 


FRSG060 SEC 




000228 




LDA 


CFS.BASE 


000229 




SBC 


#1 


000230 




STA 


CFS. PTR 


000231 




LDA 


CFS. BASE+1 


000232 




SBC 


#0 


000233 




STA 


CFS.PTR+1 


000234 


* 






000235 


* 


IF CFS.PTR="FFFF" OR CFS.NEXT=0 THEN EXIT 


000236 


* 






000237 




BCC 


FRSG070 


000238 




LDA 


CFS. NEXT 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000305 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 



BEQ FRSG070 
* IF CFS.PTR > ST.LIM(CFS.NEXT) THEN EXIT 



LDX 
LDA 

CMP 
LDA 
SBC 
BCC 



CFS.NEXT 
ST.LIML,X 

CFS.PTR 
ST.LIMH,X 
CFS . PTR+1 
FRSG070 



OTHERWISE, ADVANCE CFS PTR TO NEXT FREE PAGE BELOW NEXT 
SEGMENT IN SEGMENT LIST 



FRSG070 



JSR 

CLC 
RTS 
PAGE 
REP 



FREE SEGMENT FOUND 



* NEXT FREE PAGE 



"WALKS" THE FREE PAGE PTR (CFS.PTR) TO THE NEXT FREE PAGE 
IMMEDIATELY BELOW THE CURRENT FREE SEGMENT. 



60 



EQU 



LO: CFS.PTR:=ST.BASE(CFS.NEXT)-1 
IF CFS . PTR="FFFF" THEN DONE 



LDX 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
BCC 



ST. BASEL, X 
#1 

CFS.PTR 

ST.BASEH,X 

#0 

CFS . PTR+1 
NFRPG.EXIT 



CFS 
CFS 



. PREV:=CFS.NEXT 

. NEXT : =ST . FLINK (CFS . NEXT) 



STX 
LDA 
TAX 
STX 



CFS . PREV 
ST. FLINK, X 



CFS.NEXT 



CFS.NEXT=0 OR ST . LIM (CFS .NEXT) <CFS . PTR 

THEN DONE 
ELSE GOTO LO 



NFRPG.EXIT 



BEQ 
LDA 
CMP 
LDA 
SBC 
BCS 

RTS 

PAGE 

REP 



NFRPG.EXIT 
ST.LIML,X 
CFS . PTR 
ST.LIMH,X 
CFS. PTR+1 
NXTFRPG 



60 



; NORMAL EXIT 



* CHANGE. SEG( IN. SEGNUM,CHG. MODE; INOUT . PAGECT) SYSTEM CALL 
* 

REP 60 
CHG.SEG EQU * 

* MOVE CALLER'S PAGE COUNT TO INTERNAL BUFFER 



LDY 
LDA 
STA 
INY 
LDA 
STA 



#0 

(CHG.PGCT) , Y 
CHG.PGCTX 

(CHG.PGCT) , Y 
CHG.PGCTX+1 
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r\ r\ r\ ^ 1 


* IF SEG# 


OUT 


OF RANGE 


OR ST . FLINK ( SEG 


000321 










A A O 1 O 

OUU Jzz 






LDX 


CHG .NUM 


OUU J 






BEQ 


CHGS . ERR 


A A A O O /I 

UUU Jz4 






CPX 


#ST . CNT 


A A A O IT 

OOOi^o 






BCS 


CHGS . ERR 


A A A O O 

OUO JzD 






LDA 


ST . FLINK, X 


A A A ^ 

OUU jz / 






BPL 


CHGS005 


000328 










A A A A 


CHGS . ERR 




LDA 


#BADSEGNUM 


A A A t) A 

000330 






JSR 


SYSERR 


A A A O O T 

000331 






REP 


35 


A A A O O O 

00033Z 


* CASE OF 


CHANGE MODE 




A A A O "3 O 

000333 






REP 


35 


A A A O "3 A 

000334 


CHGS005 




LDY 


CHG .MODE 


A A A O O C 

00033O 






CPY 


#1 


A A A O O 

00033d 






BCC 


CHGS 01 


A A A "3 O "7 

00033 / 






BEQ 


CHGS 02 


A A A "3 O O 

00033o 






CPY 


#3 


A A A t) O A 

00033y 






BCC 


CHGS030 


A A A O /I A 

000340 






BEQ 


CHGS040 


A A A O /I T 

000341 


* 








A A A O /I O 

00034Z 






LDA 


#BADCHGMODE 


A A A O /I O 

00034 J 






JSR 


SYSERR 


A A A O /I >1 

000344 






PAGE 




A A A /I fZ 

000340 






REP 


35 


A A A A r 

00034D 


* CHANGE MODE 


= (BASE 


UP) 


A A A /I 

00034 / 






REP 


35 


000348 


* CHG.NEW 


=ST 


.BASE (SEG#) +PGCT 


A A A O /I A 

000349 


* 








A A A O C A 

000350 


CHGSOlO 




CLC 




A A A O C T 

000351 






LDA 


ST. BASEL, X 


A A A O C O 

00035^ 






ADC 


CHG.PGCTX 


A A A O C O 

000353 






STA 


CHG.NEW 


A A A O C /I 

000354 






LDA 


ST.BASEH,X 


A A A C C 

000355 






ADC 


CHG.PGCTX+1 


A A A 

00035D 






STA 


CHG.NEW+1 


000357 


* 








A A A O C O 

00035o 






BCS 


CHGS014 


A A A O C A 

000359 


* 








A A A O A 

0003d0 


* IF CHG.NEW 


<= ST.LIM(SEG#) THEN EXIT 


A A A O iCT 

0003d1 


* 








A A A "3 i^O 

0003oz 






LDA 


ST.LIML,X 


A A A ^ 

UO U J b J 






CMP 


CHG.NEW 


A A A ^ yl 

0003o4 






LDA 


ST.LIMH,X 


A A A ^ C 

0003d5 






SBC 


CHG.NEW+1 


000366 






BCS 


CHGS016 


A A A O iC"7 

0003d / 


* 








A A A O O 

0003DO 


* OTHERWISE, 


CHG.NEW: = 


ST.LIM(SEG#) 


A A A O A 

000309 


* 








A A A O T A 

000370 


CHGS014 




LDA 


ST.LIML,X 


A A A O "7 1 

UO U J / I 






STA 


CHG.NEW 


A A A Q '"7 O 

uU U J> /z 






LDA 


ST.LIMH,X 


A A A '"7 

0003 /3 






STA 


CHG.NEW+1 


A A A "7 yl 

0003 /4 










A A A O "7 C 

0003 /5 


CHGS016 




JMP 


CHGS. EXIT 


A A A O "7 /" 

0003 /d 






REP 


35 


A A A O T 

0003 / / 


* CHANGE MODE 


= 1 (BASE 


DOWN) 


A A A O T n 

000378 






REP 


35 


A A A O T A 

000379 


* CHG.NEW 


=ST 


.BASE (SEG#) -PGCT 


A A A "3 O A 

0003o0 


* 








A A A O 1 

0003ol 


CHGS020 




SEC 




A A A O A 

0003oz 






LDA 


ST. BASEL, X 


A A A O O 

0003o3 






SBC 


CHG. PGCTX 


000384 






STA 


CHG.NEW 


A A A O A IT 






LDA 


ST.BASEH,X 


UUU JOD 






SBC 


CHG.PGCTX+1 


O O "7 

UUUJo / 






STA 


CHG.NEW+1 


UUU Joo 






BCS 


CHGS050 


A An o o n 






BCC 


CHGS052 


A A A "3 A A 






REP 


35 


000391 


* CHANGE MODE 


= 2 (LIMIT UP) 


000392 






REP 


35 


000393 


* CHG.NEW 


=ST 


.LIM(SEG#) +PGCT 


000394 


* 








000395 


CHGS030 




CLC 




000396 






LDA 


ST.LIML,X 


000397 






ADC 


CHG.PGCTX 


000398 






STA 


CHG.NEW 


000399 






LDA 


ST.LIMH,X 


000400 






ADC 


CHG.PGCTX+1 



; ERR EXIT 



; OVERFLOW, PEG IT 



OVERFLOW, PEG IT 
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000401 
000402 
000403 
000404 
000405 
000406 
000407 
000408 
00040 
000410 
000411 
000412 
000413 
000414 
000415 
000416 
000417 
000418 
000419 
000420 
000421 
000422 
000423 
000424 
000425 
000426 
000427 
000428 
000429 
000430 
000431 
000432 
000433 
000434 
000435 
000436 
000437 
000438 
000439 
000440 
000441 
000442 
000443 
000444 
000445 
000446 
000447 
000448 
000449 
000450 
000451 
000452 
000453 
000454 
000455 
000456 
000457 
000458 
000459 
000460 
000461 
000462 
000463 
000464 
000465 
000466 
000467 
000468 
000469 
000470 
000471 
000472 
000473 
000474 
000475 
000476 
000477 
000478 
000479 
000480 
000481 



STA 
BCC 
BCS 
REP 



CHG.NEW+1 
CHGS050 
CHGS052 
35 



; OVERFLOW, PEG IT 



* CHANGE MODE = 3 (LIMIT DOWN) 
REP 35 

* CHG.NEW:=ST.LIM(SEG#)-PGCT 

9 CHGS040 



* IF CHG.NEW >= 



SEC 




LDA 


ST.LIML,X 


SBC 


CHG . PGCTX 


STA 


CHG.NEW 


LDA 


ST.LIMH,X 


SBC 


CHG.PGCTX+1 


STA 


CHG.NEW+1 


BCC 


CHGS044 


ST.BASE(SEG#) THEN EXI 


LDA 


CHG.NEW 


CMP 


ST. BASEL, X 


LDA 


CHG.NEW+1 


SBC 


ST.BASEH,X 


BCS 


CHGS046 


NEW:=ST 


BASE(SEG#) 


LDA 


ST. BASEL, X 


STA 


CHG.NEW 


LDA 


ST.BASEH,X 


STA 


CHG.NEW+1 


JMP 


CHGS.EXIT 



CHGS044 



CHGS046 
* 

* DETERMINE NEW BANK/PAGE'S REGION, 

* IF NEW BANK/PAGE IS INVALID THEN 

* SET TO BASE OR LIMIT (CASE CHANGE MODE) 
* 

CHGS050 



CHGS052 



CHGS054 



CHGS056 



LDX 


CHG.NEW 


LDY 


CHG.NEW+1 


JSR 


REGION 


BCS 


CHGS052 


BNE 


CHGS052 


BEQ 


CHGSlOO 


LDA 


CHG . MODE 


CMP 


#1 


BNE 


CHGS054 


LDX 


#>VRT.BASE 


LDY 


#<VRT.BASE 


JMP 


CHGS056 


LDX 


>VRT.LIM 


LDY 


>VRT.LIM+1 


STX 


CHG . NEW 


STY 


CHG.NEW+1 


PAGE 





OVERFLOW, PEG IT 



COMPUTE BANK/PAGE OF ADJACENT SEGMENT, 
CASE CHANGE MODE 



CHGSlOO 



CHG.NUM 

CHG. MODE 
#1 

CHGS200 

THEN EXIT 
ST.FLINK,X 
CHGS.EXIT 



LDX 

LDA 
CMP 
BNE 

IF ST.FLINK(SEG#)=0 
LDA 
BEQ 

X, Y:=ST.LIM(ST.FLINK(SEG#) ) +1 
TAY 

LDA ST.LIML,Y 

TAX 

LDA ST.LIMH,Y 

TAY 
I NX 

BNE CHGSllO 
INY 

IF CHG.NEW < X,Y THEN CHG.NEW:=X,Y 



CHGSllO 



CHGS120 



CPY 
BCC 

BEQ 
BCS 
CPX 



CHG.NEW+1 
CHGS.EXIT 

CHGS120 
CHGS300 
CHG.NEW 
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000482 




BCC 


CHGS . EXIT 


000483 




BCS 


CHGS300 


000484 


* "2" 


IF ST. BLINK {SEG#) 


=0 THEN EXIT 


000485 


CHGS200 


LDA 


ST. BLINK, X 


000486 




BEQ 


CHGS.EXIT 


000487 




X, Y:= ST. BASE (ST. 


BLINK ( SEG# ) ) - 1 


000488 




TAY 




000489 




LDA 


ST .BASEL, Y 


000490 




TAX 




000491 




LDA 


ST .BASEH, Y 


000492 




TAY 




000493 




TXA 




000494 




BNE 


CHGS210 


000495 




DEY 




000496 


CHGS210 


DEX 




000497 




IF CHG.NEW > X,Y 


THEN CHG.NEW:=X 


000498 




CPY 


CHG.NEW+1 


000499 




BCC 


CHGS300 


000500 




BEQ 


CHGS220 


000501 




BCS 


CHGS.EXIT 


000502 


CHGS220 


CPX 


CHG.NEW 


000503 




BCS 


CHGS.EXIT 


000504 


* 






000505 


CHGS300 


STX 


CHG.NEW 


000506 




STY 


CHG.NEW+1 


000507 




PAGE 




000508 




REP 


35 


000509 








000510 


* COMPUTE DELTA PAGE COUNT AND RETURN IT 


000511 


* (CASE 


OF CHG.MODE) 




000512 


* 






000513 




REP 


35 


000514 


CHGS.EXIT LDX 


CHG.NUM 


000515 




LDY 


#0 


000516 




LDA 


CHG.MODE 


000517 




CMP 


#1 


000518 




BCC 


CHGS500 


000519 




BEQ 


CHGS510 


000520 




CMP 


#3 


000521 




BCC 


CHGS520 


000522 




BEQ 


CHGS530 


000523 


* 






000524 


* "0" - 


- PAGECOUNT:=NEW-BASE 


000525 








000526 


CHGS500 


SEC 




000527 




LDA 


CHG . NEW 


000528 




SBC 


ST. BASEL, X 


000529 




STA 


(CHG.PGCT) , Y 


A A C O A 

000530 




LDA 


CHG.NEW+1 


000531 




SBC 


ST.BASEH,X 


000532 




JMP 


CHGS 500 


000533 


* 






000534 


* "1" - 


- PAGECOUNT:=BASE- 


NEW 


000535 


* 






000536 


CHGS510 


SEC 




000537 




LDA 


ST. BASEL, X 


000538 




SBC 


CHG.NEW 


000539 




STA 


(CHG.PGCT) , Y 


000540 




LDA 


ST.BASEH,X 


000541 




SBC 


CHG.NEW+1 


000542 




JMP 


CHGSSOO 


000543 








000544 


* "2" - 


- PAGECOUNT : =NEW-LIM 


000545 








000546 


CHGS520 


SEC 




000547 




LDA 


CHG.NEW 


000548 




SBC 


ST.LIML,X 


000549 




STA 


(CHG.PGCT) , Y 


000550 




LDA 


CHG.NEW+1 


000551 




SBC 


ST.LIMH,X 


000552 




JMP 


CHGSSOO 


000553 


* 






000554 


* "3" - 


- PAGECOUNT :=LIM-NEW 


000555 


* 






000556 


CHGS530 


SEC 




000557 




LDA 


ST.LIML,X 


000558 




SBC 


CHG.NEW 


000559 




STA 


(CHG.PGCT) , Y 


000560 




LDA 


ST.LIMH,X 


000561 




SBC 


CHG.NEW+1 


000562 


* 
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000563 
000564 
000565 
000566 
000567 
000568 
000569 
000570 
000571 
000572 
000573 
000574 
000575 
000576 
000577 
000578 
000579 
000580 
000581 
000582 
000583 
000584 
000585 
000586 
000587 
000588 
000589 
000590 
000591 
000592 
000593 
000594 
000595 
000596 
000597 
000598 
000599 
000600 
000601 
000602 
000603 
000604 
000605 
000606 



CHGS600 



I NY 
STA 



(CHG.PGCT) , Y 

IF NEW PAGE COUNT < REQUESTED PAGECOUNT THEN ERR 



TAX 

DEY 
LDA 
CMP 
TXA 
SBC 
BCS 
LDA 
JSR 



(CHG.PGCT) , Y 
CHG . PGCTX 

CHG.PGCTX+1 
CHGS610 
#SEGRQDN 
SYSERR 



; ERR EXIT 

OTHERWISE, ENTER CHG. NEW IN SEGMENT TABLE AND EXIT 



CHGS610 



CHGS620 



LDX 
LDA 
CMP 
LDA 
LDY 
BCS 

STA 
TYA 
STA 
CLC 
RTS 



STA 
TYA 

STA 
CLC 
RTS 



CHG.NUM 
CHG . MODE 
#2 

CHG. NEW 

CHG.NEW+1 

CHGS620 

ST. BASEL, X 

ST.BASEH,X 



ST.LIML,X 
ST.LIMH,X 



NORMAL EXIT 



; NORMAL EXIT 



CHN MEMMGR.C.SRC 

************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: MEMMGR.B.SRC 

************************************************************************* 



End of File 



Lines: 606 Characters: 12658 
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FILE: "SOS. MEMMGR.C. SRC. TEXT' 



000001 


*********************************************************** 




rtJr Jrijili III DUO -L . O OL-'UrxL.Ili 




000003 


************************** 


i-.-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k* 


000004 




Zi Q QT7MRT TTP fr-i-itn ZiPPTP rTlMPTT^TTP THHTTfTT 


000005 






000006 






000007 


REP 


DU 


000008 


* 




000009 


* GET.SEG.INFO(IN.SEGNUM; 


OUT . BASE . BKPG, LIMIT . BKPG, PGCT, SEGID) 


000010 


* 




A A A A T T 

000011 


REP 


60 


000012 






000013 


GET . SEG . INFO EQU 




000014 


* 




000015 


* IF SEG# OUT OF BOUNDS OR 


ST.FLINK(SEG#)=ST.FREE THEN ERR 


A A A A T f 

000016 


* 




000017 


LDX 


GSI .NUM 


A A A A T n 

OOOOlo 


BEQ 


GSI.ERR ; ERR - INVALID 


000019 


CPX 


#ST.CNT 


A A A A O A 

OOOOzO 


BCS 


GSI.ERR ; ERR - INVALID 


000021 


LDA 


ST.FLINK,X 


000022 


BMI 


GSI.ERR ; ERR - INVALID 


000023 






000024 


* RETURN BASE.BKPG TO CALLER 


A A A A O IT 

000025 


* 




A A A A O 

000026 


LDY 


ST. BASER, X 


000027 


LDA 


ST. BASEL, X 


A A A A O n 

000028 


TAX 




A A A A O A 

000029 


JSR 


CNVRT.XBP 


000030 


TYA 




000031 


LDY 


#1 


000032 


STA 


(GSI. BASE) , Y 


000033 


DEY 




000034 


TXA 




A A A A O IT 

000035 


STA 


(GSI. BASE) , Y 


000036 


* 




000037 


* RETURN LIMIT. BKPG TO CALLER 


000038 


* 




000039 


LDX 


GSI .NUM 


000040 


LDY 


ST.LIMH,X 


000041 


LDA 


ST.LIML,X 


000042 


TAX 




A A A A A O 

000043 


JSR 


CNVRT.XBP 


000044 


TYA 




000045 


LDY 


#1 


A A A A A 

000046 


STA 


(GSI.LIM) ,Y 


000047 


DEY 




000048 


TXA 




000049 


STA 


(GSI.LIM) ,Y 


000050 






000051 


* RETURN SEGID TO CALLER 




A A A A C O 

000052 


* 




A A A A C 

000053 


LDX 


GSI .NUM 


000054 


LDA 


ST.ID,X 


A A A A C IT 

000055 


STA 


(GSI. ID) , Y 


000056 


* 




000057 


* COMPUTE PAGE COUNT 




000058 


* 




000059 


SEC 




000060 


LDA 


ST.LIML,X 


A A A A ^ T 

000061 


SBC 


ST. BASEL, X 


000062 


TAY 




000063 


LDA 


ST.LIMH,X 


000064 


SBC 


ST. BASER, X 


000065 


TAX 




000066 


I NY 




000067 


BNE 


GSIOlO 


000068 


INX 




000069 


* 




000070 


* RETURN PAGE COUNT TO CALLER 


000071 


* 




000072 


GSIOlO TYA 




000073 


LDY 


#0 


000074 


STA 


(GSI. PGCT) , Y 


000075 


INY 




000076 


TXA 





*^******* 
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000077 




STA 


(GSI . PGCT) , Y 


000078 


* 






000079 




CLC 




000080 




RTS 




000081 


* 






000082 


GSI.ERR LDA 


#BADSEGNUM 






JSR 


SYSERR 


000084 




PAGE 




000085 




REP 


60 


000086 


* 






000087 




GET . SEG . NUM ( IN . BANKPAGE ; OUT . SEGNUM) 


000088 


* 






000089 


* 






000090 




REP 


60 


000091 


* 






000092 


GET . SEG . NUM EQU 


* 


000093 








000094 


* 


CONVERT BANKPAGE TO INTERNAL FORMAT 


000095 


* 






000096 




LDX 


GSN.BKPG 


000097 




LDY 


GSN.BKPG+1 


000098 




JSR 


CNVRT . IBP 


000099 




BCS 


GSN.ERR 


000100 




STX 


GSN.BKPG 


000101 




STY 


GSN.BKPG+1 


000102 


* 






000103 


* 


QUIT IF NO ENTRIES IN 


SEG TABLE 


000104 


* 






000105 




LDA 


ST. ENTRY 


000106 




BEQ 


GSN.ERRl 


000107 


* 






000108 


* 


LI: IF BANKPAGE>ST.LIM(SEG#) THEN ERR 


000109 


* 






000110 


GSNOlO TAX 




000111 




LDA 


ST.LIML,X 


000112 




CMP 


GSN.BKPG 


000113 




LDA 


ST.LIMH,X 


000114 




SBC 


GSN.BKPG+1 


000115 




BCC 


GSN.ERRl 


000116 


* 






000117 


* 


IF BANKPAGE>=ST.BASE (SEG#) THEN FOUND 


000118 


* 






A A A 1 T A 

000119 




LDA 


GSN.BKPG 


000120 




CMP 


ST. BASEL, X 


000121 




LDA 


GSN.BKPG+1 


000122 




SBC 


ST.BASEH,X 


000123 




BCS 


GSN020 


000124 


* 






000125 


* 


SEG# : =ST . FLINK ( SEG# ) ; 


GOTO LI 


000126 


* 






000127 




LDA 


ST. FLINK, X 


000128 




BEQ 


GSN.ERRl 


000129 




JMP 


GSNOlO 


000130 


* 






000131 


* 


RETURN SEG# TO CALLER 




000132 


* 






000133 


GSN020 LDY 


#0 


000134 




TXA 




000135 




STA 


(GSN.NUM) , Y 


000136 




CLC 




000137 




RTS 




000138 








000139 


GSN.ERR RTS 




000140 


* 






000141 


GSN.ERRl LDA 


#SEGNOTFND 


000142 




JSR 


SYSERR 


000143 




PAGE 




000144 




REP 


60 


000145 


* 






000146 


* 


RELEASE . SEG ( IN . SEGNUM) 


SYSTEM CALL 


000147 


* 






000148 




REP 


60 


000149 


* 






000150 


RELEASE . SEG EQU 


* 


000151 


* 






000152 


* 


IF ST. FLINK (SEG#)=ST. FREE THEN ERR 


000153 


* 






000154 




LDX 


RLS.NUM 


000155 




BEQ 


RLS . ALL 


000156 




CPX 


tST.CNT 


000157 




BCS 


RLS. ERR 



NORMAL EXIT 



INVALID BANK PAGE 



; ERR - SEG NOT FOUND 



; ERR - SEG NOT FOUND 



SEG NOT FOUND 



; NORMAL EXIT 
; ERROR EXIT 

; ERROR EXIT 



; RELEASE. SEG (SEG#=0) 
; ERR - SEG# TOO LARGE 
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000158 






LDA 






ST . FLINK, X 


000159 






BMI 






RLS . ERR 


000160 






BPL 






REL . SEG 


000161 






REP 






35 


000162 














000163 


* RELEASE 


ALL 










000164 














000165 






REP 






35 


000166 


RLS .ALL 




LDX 






ST . ENTRY 


000167 






BEQ 






RLSO . EXIT 


000168 






STX 






RLS . NUM 


000169 














000170 


RLSO .LOOP 




LDA 






ST . ID, X 


000171 






CMP 






#$10 


000172 














000173 






LDA 






ST . FLINK, X 


000174 






PHA 








000175 






BCC 






RLS006 


000176 






JSR 






REL . SEG 


000177 


RLS006 




PLA 








000178 






BEQ 






RLSO .EXIT 


000179 






STA 






RLS . NUM 


000180 






TAX 








000181 






BNE 






RLSO .LOOP 


000182 


* 












000183 


RLSO. EXIT 




CLC 








000184 






RTS 








000185 






REP 






35 


000186 


* 












000187 


* REL SEG 












000188 


* 












000189 






REP 






35 


000190 


* Y:=ST.FLINK(SEG#) 








ouuiyi 


* X :=ST. BLINK (SEG#) 








000192 














000193 


REL. SEG 




TAY 








000194 






LDA 






ST. BLINK, X 


000195 






TAX 








000196 


* 












000197 


* IF XOO 


THEN 


ST.FLINK(X) 


=Y 


000198 


* 


ELSE 


ST. ENTRY: 


=Y 




000199 


* 












000200 






BEQ 






RLSOlO 


000201 






TYA 








000202 






STA 






ST . FLINK, X 


000203 






JMP 






RLS020 


000204 


RLSOlO 




STY 






ST . ENTRY 


000205 


* 












000206 


* IF YOO 


THEN 


ST. BLINK (Y) 


=X 


000207 


* 












000208 






TYA 








000209 


RLS020 




BEQ 






RLS030 


000210 






TXA 








000211 






STA 






ST . BLINK, Y 


000212 














000213 


* ST.FLINK(SEG#) :=ST 


.FREE 




000214 


* ST. FREE 


=SEG# 


AND 


#$80 






000215 


* 












000216 


RLS030 




LDA 






ST . FREE 


000217 






LDX 






RLS . NUM 


000218 






STA 






ST . FLINK, X 


000219 






TXA 








000220 






ORA 






#$80 


000221 






STA 






ST . FREE 


000222 


* 












000223 






CLC 








000224 






RTS 








000225 


* 












000226 


RLS. ERR 




LDA 






#BADSEGNUM 


A A A O O ^ 

000227 






JSR 






SYSERR 


000228 






PAGE 








n n n 1 1 n 

uuu^zy 






REP 






60 


000230 














000231 


* CONVERT 


INTERNAL BANK 


PAGE 


000232 


* 












000233 


* INPUT: 


EXTERNAL BANK 


(X) 




000234 


* 




PAGE 


(Y) 




000235 


* OUTPUT: 


INTERNAL BKPG 


LOW (X) 


000236 


* 




BKPG 


HIGH (Y) 


000237 


* 


REGION (A) 


0=>VIRT BANK 


000238 


* 






1=>PHY BANK (0-$2 



ERR - INVALID SEGNUM 
RELEASE . SEG ( SEG#>0 ) 



CARRY SET/CLEARED HERE 



IF ID=SYS SEG THEN SKIP 
RELEASE ONE SEGMENT 



; ALWAYS TAKEN 



; NORMAL EXIT ; ALL NON SYSTEM SEGMENTS RELEASED. 



NORMAL EXIT 
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r\ n n o o o 








2=> 


($AOOO-$FFFF) 


000240 




ERROR: 


CARRY SET 


"INVALID BANK PAGE") 


000241 


* 
















REP 




60 




* 










000244 


CNVRT . IBP 


EQU 




* 














Anno /I 




CONVERT 


FROM EXTERNAL 


TO INTERNAL FORMAT 


A A A O A ^ 

0UU24 / 












A A A O A O 


* 


CASE OF 


BANK : ADD 


PAGE BIAS 


000249 


* 










A A A C A 

000250 






TYA 






A A A O R1 






CPX 




#$F 


A A A C A 

000252 






BEQ 




CNVlOlO 


A A A A C 

00025j 






BCS 




CNVI020 


A A A O C /I 


* 










A A A O IZ IZ 

UU Uz oo 






CMP 




#$20 


A A A O t 






BCC 




CNVI . ERRl 


A A A O C ^ 






CMP 




#$A0 


000258 






BCS 




CNVI . ERRl 


A A A A C A 

000259 






SEC 






A A A A A 

0002dO 






SBC 




#$20 


A A A A ^ T 

000261 






JMP 




CNVI030 


A A A O iCO 

0002d2 


* 










A A A O O 

UU b j 


CNVIOlO 


CMP 




#$20 


A A A A yl 

uU Uz b4 






BCS 




CNVI . ERRl 


A A A A ^ C 






CLC 






A A A A ^ 






ADC 




#$80 


A A A A 

0002d / 






JMP 




CNVI030 


A A A A iC O 
0002DO 


* 










A A A A A 
000203 


CNVI020 


CPX 




#$10 


A A A A T A 

000270 






BNE 




CNVI . ERRl 


A A A A n 1 

0002 /I 






CMP 




#$A0 


A A A A "7 A 






BCC 




CNVI . ERRl 


A A A A '"7 






SEC 






A A A A '"7 yl 

UU U^i /4 






SBC 




#$80 


A A A A C 












A A A A "7 

0002 /b 


CNVI030 


TAY 






000277 






TXA 






A A A A "7 O 

0002 /o 






LSR 




A 


A A A A T A 

000279 






TAX 






A A A A A A 

000280 






TYA 






A A A A O 1 

0002oi 






BCC 




CNVI 040 


A A A A O A 

000202 






ORA 




#$80 


A A A A O O 

0002o o 


* 










A A A A O 

0U02d4 


* 


EXCHANGE X S Y 






A A A A O C 

0002o5 


* 










A A A A A z' 

000286 


CNVI040 


PHA 






A A A A A 

000287 






TXA 






A A A A A A 

000288 






TAY 






A A A A A A 

000289 






PLA 






A A A A A A 
0002 90 






TAX 






A A A A A 1 

0002 91 


* 










A A A A A A 

0002 92 


* 


COMPUTE 


REGION (VIRT=C 


, PHY1=1, PHY2-2) 


A A A A A 'J 

0002 9o 


* 










A A A A r\ A 

000294 






JSR 




REGION 


A A A A A IT 

000295 






BCS 




CNVI . ERRl 


A A A A A 

000296 


* 










A A A A A"7 

00029 / 






RTS 






A A A A A O 

00029o 


* 










A A A A A A 

0002 99 


CNVI.ERRl 


LDA 




#BADBKPG 


A A A A A 

OOOoOO 






JSR 




SYSERR 


A A A A 1 

OOOoOl 






PAGE 






A A A A A 

000 j02 






REP 




60 


000303 


* 










A A A A A /I 

000304 


* 


CONVERT 


EXTERNAL BANK 


PAGE 


A A A O A C 

000305 


* 










A A A O A /" 

000306 


* 


INPUT : 


INTERNAL BKPG 


LOW (X) 


A A A O A"7 

00030 / 


* 








HIGH (Y) 


A A A O A O 

00030o 


* 


OUTPUT: 


EXTERNAL BANK 


(X) 


A A A A A 

000309 






PAGE 


(Y) 


000310 


* 


ERROR: 


NO ERROR CHECKING DONE. ASSUMES THAT 


000311 


* 


ARE VALID. 






000312 


* 










000313 






REP 




60 


000314 


* 










000315 


CNVRT. XBP 


EQU 




* 


000316 


* 










000317 


* 


CONVERT 


FROM INTERNAL 


TO EXTERNAL FORMAT 


000318 


* 










000319 






TXA 







BANK < "F" 



BANK = "10" 



SHIFT BANK RIGHT ONE BIT 
INTO HIGH BIT OF PAGE BYTE. 



; REGION RETURNED IN A REG. 
; ERR - INVALID BANK PAGE 



; NORMAL EXIT 
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000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 
000392 
000393 
000394 
000395 
000396 
000397 
000398 
000399 
000400 



ASL A 
TXA 

AND #$7F 

TAX 

TYA 

ROL A 

TAY 

* CASE OF BANK: ADD PAGE BIAS 



TXA 
CPY 
BEQ 
BCS 

CLC 
ADC 
JMP 

CLC 
ADC 



#$F 

CNVX020 
CNVXOlO 



#S20 
CNVX020 



#$80 



BANK = "F" 



BANK < "F" 



BANK = "10" 



* EXCHANGE X & Y 



CNVX020 



PHA 

TYA 

TAX 

PLA 

TAY 

RTS 

PAGE 

REP 



; NORMAL EXIT 



60 



REGION 



* INPUT: INTERNAL BKPG LOW (X) 

* " HIGH (Y) 

* OUTPUT: REGION (A) 

* INTERNAL BKPG LOW (X) UNCHANGED 

* " HIGH (Y) " 

* ERROR: CARRY SET ("INVALID BANK/PAGE") 



REP 

EQU 
STX 
STY 



60 



RGN . BKPG 
RGN.BKPG+1 



* IF BANKPAGE>PHY2LIM THEN ERR 



LDA 

CMP 
LDA 
SBC 
BCC 



#>PHY2LIM 
RGN. BKPG 
#<PHY2LIM 
RGN.BKPG+1 
RGN. ERR 



ERR - INVALID BANK PAGE 



* IF BANKPAGE>=PHY2BASE THEN REGION: =2 



LDA 
CMP 

LDA 
SBC 
BCC 
LDA 
BNE 



RGN. BKPG 

#>PHY2BASE 

RGN.BKPG+1 

#<PHY2BASE 

RGNOlO 

#2 

RGN040 



* IF BANKPAGE>PHY1LIMIT THEN ERR 



RGNOlO 



LDA 

CMP 
LDA 
SBC 
BCC 



#>PHY1LIM 
RGN. BKPG 
#<PHY1LIM 
RGN.BKPG+1 
RGN. ERR 



ERR - INVALID BANK PAGE 



* IF BANKPAGE>=PHY1BASE THEN REGION :=1 



LDA 
CMP 

LDA 
SBC 
BCC 



RGN. BKPG 

#>PHY1BASE 

RGN.BKPG+1 

#<PHY1BASE 

RGN020 
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000401 










LDA 


#1 


000402 










BNE 


RGN040 


000403 


* 












000404 


* 


IF BANKPAGE>VIRTUAL LIMIT THEN ERR 


000405 


* 












000406 


RGN020 






LDA 


>VRT . LIM 


000407 










CMP 


RGN . BKPG 


000408 










LDA 


>VRT . LIM+1 


000409 










SBC 


RGN . BKPG+ 1 


000410 










BCC 


RGN . ERR 


000411 










LDA 


#0 


000412 


* 












000413 


RGN040 






CLC 




000414 










RTS 




000415 


* 












000416 


RGN.ERR 






SEC 




000417 










RTS 




000418 










PAGE 




000419 










REP 


60 


000420 


* 












000421 


* 


GET FREE 








000422 


* 












000423 


* 


INPUT : 


PREVIOUS SEG # 


(A) 


000424 


* 


OUTPUT 


: NEW SEG # 


(A) 


000425 


* 


ERROR: 


CARRY 


SET ("SEG 


TBL FULL") 


000426 


* 












000427 










REP 


60 


000428 














000429 


GET . FREE 




EQU 


* 


000430 


* 












A A A O T 

U004il 


* 


SAVE PREV 


SEG 


# IN X 




000432 


* 


NOTE: 


PREV 


SEG # CARRIED IN X 


000433 


* 




NEW 


SEG 


# CARRIED 


IN Y 


000434 


* 












000435 










TAX 




000436 


* 












000437 


* 


IF NO 


FREE 


ENTRIES THEN 


ERR 


000438 


* 












000439 










LDA 


ST . FREE 


000440 










CMP 


#$80 


000441 










BEQ 


GTFR.ERR 


000442 


* 












000443 


* 


TURN OFF FREE 


FLAG (BIT7) AND DELINK 


000444 


* 












000445 










AND 


#$7F 


000446 










TAY 




000447 










LDA 


ST. FLINK, Y 


000448 










STA 


ST . FREE 


000449 


* 












000450 


* 


IF PREV SEG # 


IS NULL THEN LINK NEW 


000451 


* 


OF SEGMENT 


LIST 




000452 


* 












000453 










CPX 


#0 


000454 










BNE 


GTFROlO 


000455 










LDA 


ST. ENTRY 


000456 










STA 


ST. FLINK, Y 


000457 










LDA 


#0 


000458 










STA 


ST. BLINK, Y 


000459 










STY 


ST. ENTRY 


000460 










JMP 


GTFR020 


000461 


* 












000462 


* 


OTHERWISE 


LINK NEW ENTRY TO PREV SEG 


000463 


* 












000464 


GTFROlO 






LDA 


ST. FLINK, X 


000465 










STA 


ST. FLINK, Y 


000466 










TXA 




000467 










STA 


ST. BLINK, Y 


000468 










TYA 




000469 










STA 


ST. FLINK, X 


000470 


* 












000471 


* 


IF ST. 


FLINK (NEW) ONULL 


THEN 


000472 


* 


ST. 


BLINK (ST. FLINK (NEW) ) :=NEWSEG # 


000473 


GTFR020 






LDA 


ST. FLINK, Y 


000474 










BEQ 


GTFR030 


000475 










LDA 


ST. FLINK, Y 


000476 










TAX 




000477 










TYA 




000478 










STA 


ST. BLINK, X 


000479 


* 












000480 


* 


RETURN 


WITH NEW SEG # 




000481 


* 













. ■■(^■1 pLj^Q ALWAYS REFLECTS REGION VAL IN A REG! 
; NORMAL EXIT 



INVALID BANK PAGE 
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000482 
000483 
000484 
000485 
000485 
000487 
000488 
000489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 



GTFR030 



ZZEND 
ZZLEN 



TYA 
CLC 
RTS 

LDA 
JSR 

LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



; NORMAL EXIT 



#SEGTBLFULL 
SYSERR 

ON 

ZZEND-ZZORG 

ZZLEN-LENMEMMG 

2,"S0S0RG 



FILE IS INCORRECT FOR ME^MGR" 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: MEMMGR.C.SRC 

************************************************************************* 



End of File 



Lines: 500 Characters: 10157 
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FILE: "SOS. OPRMSG. SRC. TEXT" 



000001 


*********************************************************************** 


000002 


* 


APPLE /// SOS 1.3 SOURCE CODE FILE: OPRMSG. SRC 


000003 








000004 


* 


ASSEMBLER: APPLE ] [ 65 


02 ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 








000006 




SBTL 


"SOS 1.1 OPERATOR MESSAGE/REPLY" 


000007 




REL 




A A A A A n 

000008 




INCLUDE 


SOSORG, 6,1,254 


A A A A A A 

oooooy 




ORG 


ORGOMSG 


A A A A T A 

000010 


ZZORG EQU 


* 


A A A A T T 

000011 




MSB 


OFF 


000012 




REP 


60 


000013 








000014 




COPYRIGHT (C) 


APPLE COMPUTER INC. 1981 


000015 




ALL 


RIGHTS RESERVED 


A A A A T 

000016 








000017 




REP 


60 


000018 








000019 




THIS MODULE CONTAINS 


THE BLOCK FILE MANAGERS ' S OPERATOR 


A A A A O A 

000020 




INTERFACE. IT DISPLAYS A MESSAGE IN A FOUR LINE BY 


000021 




FOURTY COLUMN WINDOW, 


THEN WAITS FOR THE USER TO TOGGLE 


000022 




THE ALPHA- LOCK KEY BEFORE RETURNING. 


000023 








000024 




THE VERTICAL BLANKING 


FLAGS AND COMPOSITE BLANKING 


000025 




TIMER ARE USED TO MAINTAIN THE DISPLAY. MEMORY PAGE 


A A A A O 

000026 




$02 IS USED FOR TEMPORARY STORAGE. ON EXIT, ALL 


000027 


* 


RESOURCES ARE RESTORED TO THEIR PREVIOUS STATES. 


A A A A O n 

000028 


* 






A A A A O A 

000029 


* 


ENTRY POINT: OPMSGRPLY 


000030 








000031 




PARAMETERS: X — MESSAGE ADDRESS (LOW BYTE) 


000032 




Y — MESSAGE ADDRESS (HIGH BYTE) 


000033 


* 


(THE MESSAGE MUST 


RESIDE IN THE CURRENT BANK) 


A A A A O n 

UUUO o4 


* 






A A A A O IT 

000035 


* 


RESULT: A — RESPONSE KEYSTROKE 


000036 


* 


X, Y — UNDEFINED 


A A A A O T 

000037 


* 






000038 




REP 


60 


000039 








000040 








000041 




ENTRY 


OPMSGRPLY 


000042 


* 






A A A A A O 

000043 




EXTRN 


SCRNMODE 


000044 




PAGE 




000045 


* 






A A A A A 

000046 


* 


HARDWARE EQUATES 




000047 


* 






000048 


Z 


REG EQU 


$FFDO 


000049 


E 


REG EQU 


$FFDF 


000050 








000051 


KBPORT EQU 


$C008 


A A A A C O 

000052 


* 






A A A A C 

000053 


BELL EQU 


$C040 


000054 


* 






A A A A C IT 

000055 


VMO EQU 


$C050 


A A A A r 

000056 


VMl EQU 


$C052 


000057 


VM2 EQU 


$C054 


000058 


VMS EQU 


$C056 


000059 








000060 


E 


T2 EQU 


$FFE8 


A A A A ^ 1 

000061 


E 


.ACR EQU 


$FFEB 


000062 


E 


. PCR EQU 


$FFEC 


000063 


E 


. IFR EQU 


$FFED 


000064 


E 


. lER EQU 


$FFEE 


000065 


* 






000066 




ZERO PAGE DECLARATIONS 


000067 








000068 




DSECT 




000069 


ZPBASE EQU 


$200 


000070 




ORG 


$0000 ;ZERO PAGE DECLARATIONS 


000071 


MSGPTR DS 


2 /MESSAGE POINTER 


000072 


MSGIDX DS 


1 


000073 


* 






000074 


SCRNIDX DS 


1 


000075 


SCRNPTR DS 


2 


000076 


DATAPTR DS 


2 
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000077 


DATABUF 




DS 




160 






000078 


* 
















r\ /\ "1 f\ 

oooovy 


SV 


ZREG 




DS 




1 






OOOOoO 


SV.EREG 




DS 




1 






000081 


SV.SMODE 


DS 




1 






A A A A A O 

000082 


SV.EACR 




DS 




1 






A A A A A O 

OOOOo J 


SV.EPCR 




DS 




1 






000084 


SV 


EIER 




DS 




1 






000085 


* 
















000086 


FLAG 




DS 




1 






000087 








DEND 










A A A A A A 

000088 








PAGE 










A A A A A A 

000089 


OPMSGRPLY 


EQU 




* 






A A A A A A 

000090 


















A A A A A T 

000091 


















A A A A A A 

000092 




SAVE 


CURRENT 


VALUES 


AND 


SET UP ZERO 


PAGE, 




000093 




ENVIRON^ENT, 


SCREEN 


MODE, AND E.6522 


REGISTERS. 


000094 


















000095 








PHP 










000096 








SEI 










A A A A A T 

000097 








LDA 




Z.REG 






A A A A A A 

000098 








STA 




ZPBASE+SV.ZREG 


; SAVE ZERO PAGE 


A A A A A A 

000099 








LDA 




#<ZPBASE 






000100 








STA 




Z .REG 






000101 








STX 




MSGPTR 




;SAVE MESSAGE ADDRESS 


000102 








STY 




MSGPTR+1 






000103 








LDA 




E . REG 






000104 








STA 




SV. EREG 




; SAVE ENVIRONMENT 


000105 








AND 




#$5F 






A A A T A 

000106 








ORA 




#$40 






A A A T AT 

000107 








STA 




E.REG 




;SCREEN OFF, I/O SPACE ON 


000108 








LDA 




SCRNMODE 






A A A T A A 

000109 








STA 




SV.SMODE 




; SAVE SCREEN MODE 


A A A 1 T A 

000110 








LDA 




#$00 






000111 








STA 




SCRNMODE 






000112 








BIT 




VMO 




;SET 40 COLUMN 


000113 








BIT 




VMl 




; BLACK & WHITE TEXT 


000114 








BIT 




VM2 






000115 








BIT 




VM3 






A A A T T 

000116 








LDX 




E.ACR 






000117 








TXA 










A A A T •^ A 

000118 








AND 




#$20 






A A A 1 T A 

000119 








STA 




SV.EACR 




;SAVE AUXILIARY CONTROL REG 


000120 








TXA 










000121 








ORA 




#$20 






000122 








STA 




E.ACR 




; SET UP BL TIMER 


000123 








LDX 




E.PCR 






000124 








TXA 










000125 








AND 




#$F0 






000126 








STA 




SV.EPCR 




;SAVE PERIPHERAL CONTROL REG 


000127 








TXA 










A A A 1 AO 

0UU12o 








AND 




#$0F 






000129 








ORA 




#$60 






000130 








STA 




E.PCR 




; SET UP VBL FLAGS 


000131 








LDA 




E.IER 






000132 








AND 




#$38 






A A A T AO 

000133 








STA 




E.IER 




;MASK VBL S BL INTERRUPTS 


A A A T OA 

000134 








STA 




SV.EIER 




;SAVE INTERRUPT MASKS 


A A A T O C 

000135 








PLP 










A A A T O /" 

000136 


* 
















A A A 1 O "7 

00013 / 


* 
















000138 


* 


SAVE 


SCREEN 


DATA AND CLEAR MESSAGE WINDOW 




000139 


















000140 








LDX 




#3 






000141 


OPROlO 




JSR 




SETPTRS 






000142 








LDY 




#39 






A A A T /I O 

000143 


OPR020 




LDA 




(SCRNPTR) , Y 




;SAVE SCREEN DATA 


000144 








STA 




(DATAPTR) , Y 






A A A T /I IT 

000145 








LDA 




#$A0 






000146 








STA 




(SCRNPTR) , Y 




/BLANK SCREEN 


000147 








DEY 










000148 








BPL 




OPR020 






000149 








DEX 










000150 








BPL 




OPROlO 






000151 


* 
















000152 


* 
















000153 


* 


MOVE 


MESSAGE 


TO WINDOW 








000154 


* 
















000155 








BIT 




BELL 






000156 








LDX 




#$00 






000157 








STX 




MSGIDX 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 



OPRIOO 



OPRllO 



OPR120 



JSR 


SETPTRS 


LDY 


#$00 


STY 


SCRNIDX 


LDY 


MSGIDX 


INC 


MSGIDX 


LDA 


(MSGPTR) , Y 


BEQ 


OPRllO 


BMI 


OPR200 


CMP 


#$0D 


BEQ 


OPR120 


LDY 


SCRNIDX 


INC 


SCRNIDX 


ORA 


#$80 


STA 


(SCRNPTR) , Y 


CPY 


#39 


BCC 


OPRllO 


INX 




CPX 


#4 


BCC 


OPRIOO 



;SET UP MESSAGE 



DISPLAY MESSAGE UNTIL ALPHA-LOCK KEY TOGGLES 



OPR200 



OPR210 



LDY 


#2 


LDA 


KBPORT 


AND 


#$08 


STA 


FLAG 


JSR 


VIDEO 


LDA 


KBPORT 


AND 


#$08 


CMP 


FLAG 


BEQ 


OPR210 


STA 


FLAG 


DEY 




BNE 


OPR210 



RESTORE PREVIOUS CONTENTS OF WINDOW 



OPR400 
OPR410 



LDX 


#3 


JSR 


SETPTRS 


LDY 


#39 


LDA 


(DATAPTR) , Y 


STA 


(SCRNPTR) , Y 


DEY 




BPL 


OPR410 


DFX 




BPL 


OPR400 



RESTORE E.6522, SCREEN 
THEN RETURN TO CALLER 



MODE, ENVIRONMENT, S ZERO PAGE 



000211 




PHP 






000212 




SEI 






000213 




LDA 


E.ACR 




000214 




AND 


#$DF 




000215 




ORA 


SV.EACR 


/RESTORE AUXILIARY CONTROL REG 


000216 




STA 


E.ACR 




000217 




LDA 


E.PCR 




000218 




AND 


#$0F 




000219 




ORA 


SV.EPCR 


/RESTORE PERIPHERAL CONTROL REG 


000220 




STA 


E.PCR 




000221 




LDA 


SV.EIER 


/RESTORE INTERRUPT ENABLE REG 


000222 




ORA 


#$80 




000223 




STA 


E.IER 




000224 




LDA 


SV.SMODE 


/RESTORE SCREEN MODE 


000225 




STA 


SCRNMODE 




000226 




LSR 


A 




000227 




BCC 


OPR500 




000228 




BIT 


VMO+1 


/RESTORE VIDEO MODE 


000229 


OPR500 


LSR 


A 




000230 




BCC 


OPR510 




000231 




BIT 


VMl+1 




000232 


OPR510 


LSR 


A 




000233 




BCC 


OPR520 




000234 




BIT 


VM2+1 




000235 


OPR520 


BIT 


SCRNMODE 




000236 




BVC 


OPR530 




000237 




BIT 


VM3+1 




000238 


OPR530 


LDA 


SV.EREG 


/RESTORE ENVIRONMENT 
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000239 


STA 




E . REG 


000240 


LDA 




SV.ZREG /RESTORE ZERO PAGE 


000241 


STA 




Z.REG 


000242 


PLP 






000243 


RTS 






000244 


PAGE 






000245 


REP 




60 


000246 








000247 


* SUBROUTINE VIDEO 






000248 








000249 


* THIS SUBROUTINE POLLS THE VERTICAL-BLANKING AND 


000250 


* COMPOSITE-BLANKING 


-TIMER FLAGS AND TURNS THE SCREEN 


000251 


* OFF AND ON SO THAT 


ONLY 


THE MESSAGE WINDOW WILL BE 


000252 


* DISPLAYED. 






000253 


* 






000254 


* THE E.6522 MUST BE 


INITIALIZED SO THAT E.CB2 FLAGS THE 


000255 


* POSITIVE EDGE OF VBL AND E.T2 COUNTS BL PULSES. THE 


000256 


* INTERRUPTS MUST BE 


MASKED AND THE PROPER COUNT MUST 


000257 


* ALREADY BE STORED 


IN THE LOW ORDER BYTE OF E.T2. 


000258 


* 






000259 


* ENTRY: VIDEO 






000260 


* 






000261 


* PARAMETERS : INTERRUPT 


SYSTEM DISABLED 


000262 


* 






0002 63 


* EXIT: A — UNDEFINED 




0002 64 


* X, Y — PRESERVED 


000265 








000266 


REP 




60 


000267 


* 






000268 


VIDEO EQU 




* 


000269 


LDA 




E.IFR 


000270 


AND 




#$28 ;GET VBL S BL FLAGS 


000271 


BEQ 




VID030 


000272 


STA 




E.IFR /CLEAR FLAGS 


000273 


AND 




#S20 ;WHICH FLAG? 


000274 


BNE 




VIDOlO ; BL 


000275 


* 






000276 


LDA 




#$1F 


000277 


STA 




E.T2 ;SET UP BL TIMER 


000278 


LDA 




#$00 


000279 


STA 




E.T2+1 


000280 


LDA 




E.REG 


000281 


ORA 




#$20 ;SET UP FOR SCREEN 


000282 


SEC 






000283 


BCS 




VID020 


000284 


* 






000285 


VIDOlO LDA 




E.REG 


000286 


AND 




#$DF ;SET UP FOR SCREEN 


000287 


CLC 






000288 


* 






000289 


VID020 STA 




E.REG 


000290 


LDA 




#$00 


000291 


ROR 




A 


000292 


STA 




SCRNMODE 


000293 


VID030 RTS 






000294 


PAGE 






000295 


REP 




60 


000296 


* 






000297 


* SUBROUTINE SETPTRS 






000298 


* 






000299 


* THIS SUBROUTINE SETS UP 


THE POINTERS TO THE MESSAGE 


000300 


* WINDOW AND DATA SAVE AREA. 


000301 


* 






000302 


* ENTRY: SETPTRS 






000303 


* 






000304 


* PARAMETERS: X — 


LINE 


NUMBER [0. .3] 


A A O A IT 


* 






000305 


* EXIT: A — UNDEFINED 




000307 


* X, Y — PRESERVED 


000308 


* 






000309 


REP 




60 


000310 


* 






000311 


SETPTRS EQU 




* 


000312 


TXA 






000313 


LSR 




A 


000314 


ORA 




#$04 


000315 


STA 




SCRNPTR+1 


000316 


LDA 




#$00 


000317 


ROR 




A 


000318 


STA 




SCRNPTR 


000319 


LDA 




#<DATABUF 
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000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 



ZZEND 
ZZLEN 



STA 
LDA 
STA 
RTS 

EQU 

DFB 
DFB 
DFB 
DFB 
LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



DATAPTR+1 
DBUFADR, X 
DATAPTR 



>0*40+DATABUF 
>1*40+DATABUF 
>2*40+DATABUF 
>3*40+DATABUF 
ON 



ZZEND-ZZORG 

ZZLEN-LENOMSG 

2,"S0S0RG 



FILE IS INCORRECT FOR OPRMSG" 



********************* 



* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: OPRMSG. SRC 

************************************************************************* 



End of File 



Lines: 342 Characters: 8079 
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FILE: "SOS. PATH. TEXT' 



A A A T 


********************************************************** 


A A A A n 


* a PPT TT III 
rtJrJrijili III 


Qnc; 1 "3 Qi^npr'T? 
oUo -L . O OUUKL.-C1 


CODE FILE: PATH 




000003 


-k-k-k-k-k-k-k-k-k-k-k-k 


************** 




000004 




a PPT F 1 r Rfl 9 


ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 










000006 










A A A A A ^ 

000007 


* 








A A A A A n 

000008 


* 








000009 


* 








A A A A T A 

000010 


■RTTMr'P 




COMMAND 


WHAT CALL? 


A A A A 1 T 

000011 


* 








000012 










000013 










000014 




LDA 


DISPTCH, X 


TRANSLATE INTO COMMAND ADDRESS 


000015 






A 


(BIT 7 INDICATES IT'S GOT A PATHNAME TO PREPROCESS) 


A A A A T 

000016 






CMDTEMP 




000017 




AND 


#$3F 


(BIT 6 IS REFNUM PREPROCESS, 5 IS FOR TIME, SO STRI 


000018 




TAX 






A A A A T A 

ooooiy 




LDA 


CMDTABLE , X 


MOVE ADDRESS FOR INDIRECT JUMP . 


A A A A O A 

OOOOzO 






CMDADR 




000021 




LDA 


CMDTABLE + 1 , X 


(HIGH BYTE) 


000022 




STA 


CMDADR+1 




000023 




LDA 


#<VCB 




000024 






VCBPTR+1 


INSURE DEFAULT HI ADDRESS TO VCB BEFORE CALLS 


A A A A IT 

000025 




LDA 


#BKBITVAL 


INIT "BACKUP BIT FLAG" 


A A A A O 

000026 






BKBITFLG 


TO SAY "FILE MODIFIED" 


000027 






#MAXTEMPS 


ZERO OUT SISTER PAGE FOR TEMPS 


A A A A O n 

000028 




LDA 


#0 




A A A A O A 

00002y 






SERR 


MAKE GLOBAL ERROR SAY "NONE" 


000030 




qma 


DSWGLOB 


"DISK SWITCH GLOBAL" 


000031 






DUPLFLAG 


"DUPLICATE VOLUME ON LINE" 


000032 






CFLAG 


SET "CREATE" TO NO 


000033 






BLOKSAVE 




A A A A O A 

000034 






BLOKSAVE+1 


SET PARENT DIRECTORY TO NULL 


A A A A O C 

000035 






SISTEMPS, Y 




000036 










A A A A O T 

000037 






CLRSIS 


CARRY IS UNDISTURBED BY THIS LOOP 


000038 




BCC 


NOPATH 




000039 




JSR 


SETPATH 


GO PROCESS PATHNAME BEFORE CALLING COMMAND 


A A A A /I A 
OU U04 U 






ERRORSYS 


BRANCH IF BAD NAME. 


000041 


INWlrrtX n 


ASL 


CMDTEMP 


TEST FOR REFNUM PREPROCESSING 


000042 






NOPREREF 




A A A A A O 

000043 




JSR 


FINDFCB 


GO SET UP POINTERS TO FCB AND VCB OF THIS FILE. 


A A A A yi A 

000044 




BCS 


ERRORSYS 


BRANCH IF ANY ERRORS ARE ENCOUNTERED. 


000045 


'MnppTrp'PTr 
i>j w Jr x\i1j rxHj r 




CMDTEMP 


LASTLY CHECK FOR NECESSITY OF TIME STAMP. 


A A A A A 

000046 




BCC 


TSWVRFY 




000047 




LDX 


IDATELO 


PASS Z PAGE ADDRESS OF WHERE TO RETURN DATE/TIME 


000048 






DATETIME 


(NO ERROR POSIBLE) 


000049 


1 O Inl V r\C 1 


LDX 


COMMAND 


TEST FOR NECESSITY OF VOLUME VERIFICATION 


000050 




LDA 


#PREPATH+PREREF+PRETIME ; TO ENSURE VCB IS SET 


000051 




K^n 


DISPTCH, X 




A A A A C O 

000052 






EXECUTE 




A A A A C 

000053 




LDY 


#VCBSTAT 




000054 




LDA 


(VCBPTR) , Y 




A A A A C IT 

000055 




AND 


#DSWITCH 


WAS THE VOLUME PREVIOUSLY SWITCHED? 


A A A A r 






EXECUTE 




000057 




DEY 




GET DEVICE NUMBER 


000058 




LDA 


(VCBPTR) , Y 




000059 




STA 


DEVNUM 




000060 




JSR 


VERFYVOL 


SEE IF PROPER VOLUME NOW ON LINE 


A A iCT 
UUUUDl 




BCC 


CLRDSWT 


BRANCH IF YES 


UUUUDZ 




JSR 


USRREQ 


OTHERWISE REQUEST IT BE PUT ON LINE 


000063 




BCC 


DVERIFY 


USER SEZ S/HE DID: CHECK IT OUT 


000064 




LDA 


#VNFERR 


VOLUME NOT FOUND IF USER REFUSES 


000065 




BNE 


ERRORSYS 


REPORT ERROR (BRANCH ALWAYS) 


000066 


CLRDSWT 


LDY 


tVCBSTAT 


GET VOLUME 


000067 




LDA 


(VCBPTR) , Y 


STATUS 


000068 




AND 


#$FF-DSWITCH 


TURN OFF DISK SWITCH 


000069 




STA 


(VCBPTR) , Y 


SO WE WON'T VERIFY NEXT TIME 


000070 


EXECUTE 


JSR 


GOCMD 


EXECUTE COMMAND 


000071 




BCC 


GOODOP 


BRANCH IF SUCCESSFUL 


000072 




CMP 


#XDISKSW 


DISK SWITCH? 


000073 




BNE 


ERRORSYS 


NO, REPORT SOME OTHER 


000074 




LDY 


#VCBSTAT 


MARK VCB WITH SWITCH 


000075 




LDA 


(VCBPTR) ,Y 




000076 




AND 


#$FF-DSWITCH 


TO ENSURE VOLUME VERIFIED 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



ERRORSYS 

GOODOP 



DROP INTO 



BPL 
ORA 
STA 
JMP 

JSR 

RTS 



PAGE 

EQU 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

EQU 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 

PAGE 

LDA 
STA 
LDA 
STA 
LDA 
STA 
' SYNPATH ' 

LDA 
STA 
STA 
LDA 
STA 
STA 
LDX 
TXA 
STA 
TAY 
LDA 
BMI 
BEQ 
STA 
JSR 
LDA 
CMP 
BEQ 
CMP 



ERRCMD 
#DSWITCH 
(VCBPTR) , Y 
BFMGR 

SYSERR 



(CMDADR) 



CREATE 
DESTROY 

RENAME 

SETINFO 

GETINFO 

VOLUME 

SETPREFX 

GETPREFX 

OPEN 

NEWLINE 

READ 

WRITE 

CLOSE 

FLUSH 

SETMARK 

GETMARK 

SETEOF 

GETEOF 



PRE PATH+ PRE T IMF + 

PREPATH+PPETIME+1 

PREPATH+PRETIME+2 

PREPATH+PRETIME+3 

PREPATH+4 

5 

6 

7 

PREPATH+8 

PREREF+$9 

PREREF+$A 

PREREF+$B 

PRETIME+$C 

PRETIME+$D 

PREREF+$E 

PREREF+$F 

PREREF+$10 

PREREF+$11 



C . PATH 

TPATH 

C.PATH+1 

TPATH+1 

SISPATH 

SISTPATH 



#>PATHBUF 

PATHNML 

WRKPATH 

#<PATHBUF 

PATHNMH 

WRKPATH+1 

#0 

(PATHNML, X) 

(TPATH, X) 
ERRSYN 
ERRSYN 
PATHCNT 
INCTPTH 

(TPATH, X) 
#DLIMIT 
BUMPATH 
#$2E 



NO FILES OPEN SO DSWITCH CANT APPLY 



TRY THE COMMAND AGAIN 



GOOD RETURN 



CREATE 

DESTROY 

RENAME 

SETINFO 

GETINFO 

VOLUME 

SETPREFIX, PATHNAME MOVED TO PREFIX BUFFER 

GETPREFIX 

OPEN 

NEWLINE 

READ 

WRITE 

CLOSE 

FLUSH, REFNUM MAY BE ZERO TO FLUSH ALL. 

SETMARK 

GETMARK 

SET EOF 

GET EOF 



FOR A REGULAR PATHNAME, 

SET UP TEMP POINTER TO PROCESS 

PATHNAME AND CHECK FOR SYNTAX ERRORS 



(LEAVE CALL PARAMETERS ALONE! 



SET UP DEFAULT ADDRESS FOR 

SYNTAXED PATHNAME - 

LENGTH, NAME, LENGTH, NAME, ETC. 



(ASSUMES FULL PATHNAME, NO PREFIX) . 
USE INDEXED INDIRECT FOR SOURCE PATHNAME 
SET BEGINNING OF PATH 

TO ZERO TO INDICATE NOTHING PROCESSED. 
GET TOTAL LENGTH OF SOURCE PATHNAME 



(THIS IS USED AS A 'COUNT-DOWN') 

INCREMENT SOURCE POINTER 

GET FIRST CHARACTER OF PATHNAME 

IS IT A FULL PATHNAME (NO PREFIX) 

YES, WE'RE READY TO DO IT. 

IS IT A DRIVE NAME '.'? 
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000158 




BNE 


ADPREFIX 


NO, ADD PREFIX TO BEGINNING 


000159 


DRIVENAM 


LDA 


(TPATH, X) 


MOVE DRIVE NAME FOR VOLUME CALL 


000160 




CMP 


#DLIMIT 


HAVE WE MOVED ENTIRE NAME? 


000161 




BEQ 


PREVOLM 


YES, PROCESS IT . 


000162 




INY 




(IF THIS IS THE FIRST, MAKE ROOM FOR LENGTH OF NAME) 


000163 




STA 


(WRKPATH) , Y 




000164 




JSR 


INCTPTH 


BUMP POINTER TO GIVEN NAME . 


000165 




DEC 


PATHCNT 




000166 




BNE 


DRIVENAM 




000167 




BEQ 


PREVOLMl 




000168 










000169 




PAGE 






000170 


PREVOLM 


JSR 


INCTPTH 


MAKE IT SO POINTING PAST DELIMITER. 


000171 




DEC 


PATHCNT 




000172 


PREVOLMl 


TYA 




SAVE LENGTH OF DRIVE NAME . 


A A A T "1 O 

00017 J 




STA 


(WRKPATH, X) 




000174 




LDA 


#>PATHBUF 


POINT AT PATHNAME BUFFER FOR DEVICE ID CALL. 


000175 




STA 


DVNAMP 




000176 




LDA 


#<PATHBUF 




000177 




STA 


DVNAMP+1 




000178 




LDA 


#0 


MAKE VIRTUAL POINT AT SWITCHED IN BANK. 


000179 




STA 


S I STER+DVNAMP+ 1 




000180 




JSR 


SRCHDEV 


GO IDENTIFY WHICH VOLUME 


000181 




BCC 


PREV0LM2 


BRANCH IF NO ERROR 


000182 




CMP 


#VNFERR 


WAS IT REPORTED AS 'VOLUME NOT FOUND'? 


000183 




BNE 


SPTHERR 


NO SOME OTHER ERROR WAS ENCOUNTERED. 


000184 




LDX 


DUPLFLAG 


YES, WAS IT NOT FOUND BECAUSE SOME OTHER 'OPEN' VOLUME 


000185 




BEQ 


SPTHERR 


NO, IT SIMPLY WASN'T FOUND. 


000186 




LDA 


#DUPVOL 


(CARRY IS SET) 


000187 




RTS 






000188 










000189 


PREV0LM2 


LDY 


#0 


(X CONTAINS AN INDEX TO VCB) 


000190 




LDA 


VCB,X 


GET VOLUME NAME LENGTH. 


A A A 1 AT 

oouiyi 




STA 


PATHBUF, Y 




000192 


SPATH2 


I NX 




MOVE VOLUME NAME INTO PATH NAME BUFFER IN 


000193 




INY 




PLACE OF DISK DEVICE NAME ( ' . Dl ' OR SIMULAR) 


000194 




LDA 


VCB, X 




000195 




STA 


PATHBUF, Y 




000196 




CPY 


PATHBUF 


HAVE ALL CHARACTERS BEEN MOVED? 


000197 




BNE 


SPATH2 




000198 




LDX 


#0 


RESET X FOR INDEXING 


000199 




STX 


PATHNML 




000200 




LDA 


#< PATHBUF 




000201 




STA 


PATHNMH 




000202 




LDA 


PATHCNT 


IS THAT ALL THERE IS? 


000203 




BNE 


SPATH3 


NO, MORE TO COME. . . 


000204 




CLC 






000205 




JMP 


END PATH 




000206 










000207 


S PATH 3 


INY 




BUMP TO END OF NAME+1 


000208 




STY 


WRKPATH 


RESET WORKPATH POINTER TO CURRENT . 


000209 




LDA 


#0 


RESET PATHNAME BUFFER POINTER. 


000210 




LDY 


#< PATHBUF 




000211 




BNE 


NOPREFX 


BRANCH ALWAYS . . . 


000212 










000213 


ERRSYN 


LDA 


# BAD PATH 


RETURN SYNTAX ERROR 


000214 


SPTHERR 


SEC 






000215 




RTS 






000216 










000217 


AD PRE FIX 


LDA 


PFIXPTR 


GET POINTER TO BEGINNING OF THE 


A A A O T O 

00021b 




LDY 


PFIXPTR+1 


PREFIX . 


000219 


NO PRE FX 


STA 


PATHNML 




000220 




STY 


PATHNMH 


IF NO PRESET PREFIX, THIS IS THE SAME AS 


000221 




BNE 


FRSTCHAR 


PATHBUF ADDRESS. (BRANCH ALWAYS TAKEN) 


000222 










000223 




PAGE 






000224 










000225 


BUMPATH 


DEC 


PATHCNT 


FIRST ADJUST COUNT 


000226 




CLC 




(JUST IN CASE OF LAST CHARACTER) 


A A A O O ^ 

000227 




BEQ 


END PATH 


(MUST OF HAD TRAILING SPACES) 


000228 




JSR 


INCTPTH 




000229 


FRSTCHAR 


LDY 


#0 


INIT COUNT FOR THIS PORTION OF THE 


000230 




TYA 




PATHNAME. ALSO PRESET LENGTH TO ZERO IN 


000231 




STA 


(WRKPATH, X) 


CASE OF TRAILING SPACES. 


000232 




LDA 


(TPATH,X) 


GET CHARACTER. 


000233 




AND 


#$7F 


IGNORE HIGH BIT. 


000234 




CMP 


#$20 


IS IT A LEADING SPACE? 


000235 




BEQ 


BUMPATH 


IF SO, IGNORE IT. 


000236 




CMP 


#$5B 


IS IT GREATER THAN (UPPER CASE) A 'Z'? 


000237 




BCC 


ALFAl 


NO, MAKE SURE IT'S AN ALPHA CHARACTER 


000238 




AND 


#$5F 


YES, ASSUME IT'S LOWER CASE, AND UPSHIFT 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 



ALFA2 



ERRSYNl 
INCTPTH 

INCPTHl 



CMP 
BCS 

CMP 
BCC 
BCS 

LDA 
AND 
CMP 
BCC 
AND 
CMP 
BCS 

CMP 
BCS 
CMP 
BCS 
CMP 
BCS 
CMP 
BEQ 
CMP 
BNE 
CLC 
I NY 
STA 
DEC 
BEQ 
INC 
BNE 
INC 
BNE 
PAGE 

TYA 
STA 
BCC 
CMP 
BCS 
LDY 
SEC 
ADC 
STA 
BCC 
LDA 
JSR 

BEQ 
CMP 

BCS 
I NY 
LDA 
STA 
LDA 
BEQ 
CLC 
RTS 

JMP 

INC 
BNE 
INC 
RTS 

PAGE 
JSR 

BCC 
TAX 
LDY 
LDA 
BEQ 
TXA 
RTS 
STA 
CLC 
RTS 
LDA 
BNE 



#S5B 
ERRSYN 

#$41 

ERRSYN 

SAVPATH 

(TPATH,X) 

#$7F 

#$5B 

ALFA2 

#$5F 

#$5B 

ERRSYN 

#$41 

SAVPATH 

#$3A 

TSTDLIM 

#$30 

SAVPATH 

#DLIMIT 

ENDPATH 

#$2E 

ERRSYN 



(WRKPATH) , Y 

PATHCNT 

ENDPATH 

TPATH 

NXTCHAR 

TPATH+1 

NXTCHAR 



(WRKPATH, X) 
LSTNAME 
#$10 
ERRSYNl 
#0 

WRKPATH 

WRKPATH 

BUMPATH 

#TOOLONG 

SYSDEATH 

TSTVALD 
#$10 

ERRSYNl 

#0 

(WRKPATH) , Y 
(PATHNML,X) 
ERRSYNl 



TPATH 

INCPTHl 

TPATH+1 



SETPATH 

SETPRFXl 



(C.PATH) ,Y 
RESETPFX 



PATHNML 
ERRSYNl 



WAS IT TRULY LOWER CASE? 
NO, GIVE ERROR. 

IS IT LESS THAN 'A'? 

YES! IT'S CRAP. . . 

NO, IT'S GOOD. SAVE IT. 

GET THE NEXT CHARACTER. 

THESE CHARACTERS MAY BE ALPHA, NUMERIC, 

OR A PERIOD - ONLY THE FIRST HAD TO BE ALPHA 

BRANCH IF LESS THAN 'Z' 

UPSHIFT LOWER CASE. 

NOW IS IT VALID? 

NOPE. 



IS 
YUP 
>9? 
YES 
NO, 
NO, 



IT GREATER THAN 'A'? 
IT IS WORTH SAVIN. 



<0? 

IT'S VALID NUMERIC. 
IS IT THE DELIMITER? 

YES. CARRY SET INDICATES MORE TO COME. 

IS IT A ' . ' (PERIOD) ? 

NO, IT'S AN ERROR (#(a&##l3!) 

; BUMP NAME LENGTH 

; IF ZERO, THAT WAS THE LAST CHARACTER 

; (CARRY CLEAR INDICATES END OF PATH) 

; BUMP POINTER TO SOURCE PATHNAME. 

; HIGH ORDER, WHEN NECESSARY. 
; BRANCH ALWAYS. 



GET CURRENT NAME LENGTH 

AND PUT IT IN FRONT OF NAME 

BRANCH IF THAT WAS THE LAST OF PATH 

WAS THE NAME ILLEGALLY LONG? 

YES, REPORT IT. 

ADJUST WORK POINTER TO END OF PREVIOUS NAME. 

REPLACE OLD POINTER. 
DO NEXT NAME. 
THIS IS A NEVER ERROR! 
(NEVER RETURNS) . 



MAKE SURE LAST ISN'T TOO LONG 

PUT A ZERO AT END OF PROCESSED PATHNAME 



SURE THERE IS A PATHNAME 
IF NOT, REPORT ERROR. 
INDICATE NO ERROR. 



; POINT AT NEXT CHARACTER 



CALL IS MADE HERE SO A 
BRANCH IF PATHNAME OK 
SAVE ERROR CODE 



NUL' PATH MAY BE DETECTED. 



TEST FOR A NUL PATHNAME 
BRANCH IF PREFIX TO BE RESET. 
RESTORE ERROR CODE 



MAKE SURE NAME STARTED WITH A 
BRANCH IF IT DID. 



'/' DELIMITER. 
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000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000375 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 
000392 
000393 
000394 
000395 
000396 
000397 
000398 
000399 
000400 



SETPRFX3 
SETPRFX4 

MOVPRFX 



SNDLMIT 
SNDPRFXl 



NULPREFX 
GOTPRFX 



LDY 
CLC 
LDA 
BNE 
DEY 
TYA 
BNE 
ADC 
TAY 
EOR 
STA 
STA 
LDA 
STA 
DEY 
BPL 
CLC 
RTS 

PAGE 

CLC 
LDA 
EOR 

ADC 
CMP 
BCC 
LDA 
RTS 

LDY 
STA 
TAY 

DEY 
BEQ 
I NY 
LDX 
DEX 
STX 
LDA 
STA 
LDA 
STA 
DEY 
BEQ 
LDA 
STA 
AND 
BEQ 
BNE 
TYA 
STA 
CLC 
RTS 
PAGE 

LDA 
STA 
LDA 
STA 

LDA 
STA 
LDY 
BMI 
DEY 
CPY 
BCS 
TYA 
ASL 
ASL 
ASL 
ASL 
ASL 
BCC 
INC 
STA 
LDA 
LDY 
CMP 
BNE 
LDY 



FIND THE END OF THE INPUT PREFIX 

ADD LAST LOCAL NAME LENGTH TO FIND TRUE END. 



(PATHNML) , Y 
SETPRFX3 



SETPRFX4 
WRKPATH 

#SFF 

PFIXPTR 

WRKPATH 
(PATHNML) , Y 
(WRKPATH) , Y 

MOVPRFX 



PFIXPTR 
#$FF 

#2 

C.MAXPTH 
SENDPRFX 
#BTSERR 



#0 

(C.PATH) , Y 



NULPREFX 

PFIXPTR 

WRKPATH 
#<PATHBUF 
WRKPATH+1 
#DLIMIT 
(C.PATH) , Y 

GOTPRFX 
(WRKPATH) , Y 
(C.PATH) , Y 

#$F0 

SNDLMIT 

SNDPRFXl 

(C.PATH) , Y 



FCBADDRH 
FCBPTR+1 
#0 

FCBPTR 
FCBANKNM 
SISFCBP 
C . REFNUM 
ERRNOTBLK 

#$10 
REEFER 

A 
A 
A 
A 
A 

SVFCBLO 
FCBPTR+1 
FCBPTR 
C. REFNUM 
#FCBREFN 
(FCBPTR) , Y 
ERRNOREF 
#FCBBUFN 



GET COMPLIMENT TO FIND BEGINNING ADDRESS. 
OF NEW PREFIX IN THE PREFIX BUFFER 
(PREFIX ALWAYS ENDS AT THE LAST BYTE OF BUFFER) 

MOVE IN NEW PREFIX 



AND WE'RE FINISHED! 

NO ERRORS POSIBLE FROM THIS ROUTINE. 



CALCULATE HOW BIG A BUFFER IS NEEDED TO 
PASS THE PREFIX BACK TO THE USER. 

(EVEN IF NO PREFIX, 1 BYTE IS NEEDED TO SHOW LENGTH) 
ADD 2 FOR LEADING AND ENDING "/". 
IS THERE ENOUGH SPACE IN USER'S BUFFER? 

BRANCH IF YES 

TELL USER BUFFER IS TOO SMALL. 
(CARRY IS SET TO INDICATE ERROR.) 

SAVE TOTAL LENGTH OF STRING TO BE RETURNED 



DISCOUNT TRAILING DELIMITER. 
BRANCH IF PREFIX IS SET TO NUL. 



GET BEGINNING ADDRESS OF PREFIX AGAIN 



; PLACE DELIMITER BEFORE, BETWEEN, AND AFTER LOCAL NAMES. 



; BRANCH IF ALL OF PREFIX IS TRANSFERED. 
ASSUME IT'S A CHARACTER. 

NOW TEST TO SEE IF IT WAS A LOCAL LENGTH. 
BRANCH IF IT WAS. 

GO MOVE NEXT CHAR IF IT WASN'T (ALWAYS TAKEN) . 
RETURN NUL STRING. 

INDICATE NO ERROR. 



INITIALIZE INDIRECT POINTER TO 

FILE CONTROL BLOCK (ALLOCATED WHEN SYSTEM 

WAS FIRST BOOTED) . 

NOTE: ALWAYS STARTS ON PAGE BOUNDARY. 
SET SISTE PAGE BYTE TOO... 

GET REQUESTED REFERENCE 

BRANCH IF IT'S NOT A BLOCK DEVICE REFERENCE 
(SHOULD BE IN THE RANGE OF 1-16 BEFORE DECREMENT) 
IS IT A VALID REFNUM? 
NO, THE USER'S SMOKIN DOPE! 
TO FIND ASSOCIATED FILE CONTROL STUFF, 
MULTIPLY (REFNUM-1) BY 32. 



BRANCH IF IT'S WITHIN FIRST HALF OF FOB 
BUMP TO SECOND HAVE (REFNUM>8) 
SAVE LOW ADDRESS OF REFERENCED FCB 
NOW VERIFY THAT FILE IS OPEN. 

SHOULD BE EQUAL! 

BRANCH IF THEY'RE NOT 

IT'S A LEGAL FILE, NOW SET UP 
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000401 




LDA 


(FCBPTR) , Y 


INDIRECT POINTERS TO DATA 


000402 


GTBUFFRS 


LDX 


#DATPTR 


(AND INDEX) BUFFER (S) IN ZERO PAGE 


000403 




JSR 


GETBUFADR 


GET BUFFER ADDRESS UNLESS 


000404 




ECS 


REEFERl 


BOB HAS BEEN SMOKIN DOPE . . . 


000405 




LDA 


#2 


(ASSUME AN INDEX BLOCK BUFFER IS ALSO PRESENT) 


000406 




ADC 


DATPTR+1 




000407 




STA 


TINDX+1 




000408 




LDA 


DATPTR 




000409 




STA 


TINDX 




000410 




LDA 


SISDATP 




000411 




STA 


SSTIDXH 




000412 




LDY 


#FCBDEVN 




000413 




LDA 


(FCBPTR) , Y 


MAKE SURE DEVICE 


000414 




STA 


D. DEV 


NUMBER TEMPS MATCH 


000415 




STA 


DEVNUM 


CURRENT FILE'S DEVICE 


000416 




LDA 


#0 


LOOK AT ALL VOLUMES LOGGED IN 


000417 


FNDFVOL 


TAX 






000418 




LDA 


VCB+VCBDEV, X 


GET VOLUMES DEVICE NUMBER 


000419 




CMP 


(FCBPTR) , Y 


HVE WE FOUND A MATCH. 


000420 




BNE 


FNDFVl 




000421 




LDY 


#FCBSWAP 


SWAP BYTES 


000422 




LDA 


VCB+VCBSWAP , X 


MISMATCH 


000423 




CMP 


(FCBPTR) , Y 


MEANS FILE BELONGS 


000424 




BNE 


FNDFV . 1 


TO ANOTHER VOLUME 


000425 




LDA 


VCB, X 


IS THIS AN OPEN DEVICE? 


000426 




BEQ 


FNDFV . 1 


NO, TRY ANOTHER VOLUME 


000427 




JSR 


FVOLFOUND 


YES, SAVE VCB ADDRESS 


000428 




LDA 


VCB+VCBSWAP, X 


SWAPPED? 


000429 




BEQ 


REEFERl 


NO, RETURN CALMLY TO USER 


000430 




JSR 


SWAP IN 


YES, SWAP ME IN 


000431 




BCC 


REEFERl 


RETURN WITHOUT ERROR 


000432 




LDA 


#XIOERROR 


USER REFUSED TO MOUNT PROPER VOLUME 


000433 




RTS 






000434 










000435 


FNDFV . 1 


LDY 


#FCBDEVN 


RELOAD Y WITH DEVICE INDEX 


000436 


FNDFVl 


TXA 






000437 




CLC 






000438 




ADC 


#VCBSIZE 




000439 




BCC 


FNDFVOL 


LOOP UNTIL FOUND 


000440 




LDA 


#VCBERR 


OTHERWISE DIE A SYSTEM DEATH! 


000441 




JSR 


SYS DEATH 




000442 




PAGE 






000443 










000444 


ERRNOREF 


LDA 


#0 


DROP A ZERO INTO THIS FCB TO 


000445 




STA 


(FCBPTR) , Y 


SHOW FREE FCB 


000446 










000447 


REEFER 


LDA 


#BADREFNUM 


TELL USER THAT REQUESTED REFNUM 


000448 




SEC 




IS ILLEGAL (OUT OF RANGE) FOR THIS CALL. 


000449 


REEFERl 


RTS 






000450 










000451 


ERRNOTBLK 


LDA 


#NOTBLKDEV 


TELL USER THAT SPECIFIED DEVICE IS NOT A BLOCK 


000452 




SEC 






000453 




RTS 






000454 










000455 


SVCBADR 


EQU 






000456 


FVOLFOUND 


STX 


VCBPTR 




000457 




LDA 


#VCB/256 




000458 




STA 


VCBPTR+1 




000459 




CLC 




INDICATE LEGAL REFNUM 


000460 




RTS 






0004 61 




PAGE 






000462 


* NAME : 


GETDNUM 






000463 


* FUNCTION: 


GET DEVICE NUMBER 




000464 


* INPUT : 


DVNAMP SETUP 




000465 


* OUTPUT : 


DEVNUM IN 'SCRTCH' 




000466 




'BPL' IF 


NOT BLOCK DEV 




000467 




'BCS' IF 


NO DEVICE 




000468 


* VOLATILE: 


ALL REGS 






000469 










000470 


GETDNUM 


EQU 


* 




000471 




LDA 


#>SCRTCH+1 


SET UP POINTER TO SCRATCH AREA 


000472 




STA 


DVDNUM 


TO RECIEVE DEVICE NUMBER. 


000473 




LDA 


#SCRHIGH 




000474 




STA 


DVDNUM+1 




000475 




LDA 


#0 


PLACE A ZERO IN BANK BYTE SINCE 


000476 




STA 


SISTER+DVDNUM+1 


IT'S NOT IN A BANK. 


000477 




STA 


VCBPTR+1 




000478 




LDA 


#4 


THE 'GET.DNUM' COMMAND. 


000479 




STA 


DHPCMD 




000480 




JSR 


RPEATIOO 


CALL BOB FOR THE INFO. 


000481 




RTS 




RETURN WITH DEVMGR CCS 
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000482 
000483 
000484 
000485 
000486 
000487 
000488 
000489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000508 
000509 
000510 
000511 
000512 
000513 
000514 
000515 
000516 
000517 
000518 
000519 
000520 
000521 
000522 
000523 
000524 
000525 
000526 
000527 
000528 
000529 
000530 
000531 
000532 
000533 
000534 
000535 
000536 
000537 
000538 
000539 
000540 
000541 
000542 
000543 
000544 
000545 
000546 
000547 
000548 
000549 
000550 
000551 
000552 
000553 
000554 
000555 
000556 
000557 
000558 
000559 
000560 
000561 
000562 



NAME : 
FUNCTION: 



VLOOKOO 



VNOTEQ 



VLOOKO 



SRCHDEV 
SEARCH FOR 

EQU 

JSR 
BCS 
BPL 
LDA 
STA 
TAX 
LDA 
BNE 
STX 
EQU 
LDA 
BNE 
LDA 
EOR 
BEQ 
LDA 
BNE 
EOR 
BEQ 
JSR 
LDA 
BPL 
LDA 
STA 
TXA 
PHA 
JSR 
BCC 
CMP 
BEQ 
JSR 
BCS 
LDX 
JSR 
BCS 
PLA 
LDX 
RTS 

DS 



NOSWIT CLC 
PLA 
TAX 
RTS 

RETURN TO CALLER X=POINTER TO VCB. 



GETDNUM 
VOLERRl 
ERRNOTBLK 
#0 

NFOPEN 

VCB+VCBSTAT,X 

VLOOKOO 

NFOPEN 

VCB+VCBSWAP,X 

VNOTEQ 

VCB+VCBDEV, X 

SCRTCH+1 

VLOOKO 

VCB,X 

VL00K2 

VCB,X 

VLOOKl 

SVCBADR 

VCB+VCBSTAT,X 

VL00K3 

SCRTCH+1 

DEVNUM 



VERFYVOL 

VNOSWIT 

tVNFERR 

VL00K7 

TSTSOS 

KNOTSOS 

#0 

SNSWITl 
VNOSWITl 

VCBPTR 



VOLERRl 
VNOSWITl 



VLOOKl 
VL00K2 



VL00K3 



SEC 
RTS 
CMP 
BNE 
TAX 
PLA 
TXA 
SEC 
RTS 
PLA 
LDA 
RTS 

PLA 
JMP 

JSR 
TXA 
CLC 
ADC 
BCC 
LDX 
BNE 
LDX 
JSR 
LDA 
BEQ 
LDA 



#DUPVOL 
VL00K7 



#NOTSOS 



NOVOLM 
SVCBADR 



tVCBSIZE 

VOLOOK 

VCBPTR+1 

VL00K3 

NFOPEN 

SVCBADR 

VCBPTR+1 

NOVOLM 

SCRTCH+1 



GET DEVNUM 

BRANCH IF ANY ERROR OTHER THAN NOTBLOCKDEV 

BRANCH IF NOT A BLOCK DEVICE 

NOW SEARCH FOR A VOL WITH THE 

INIT TEMP VCB POINTER 

SAME DEVNUM AS SCRTCH 

ANY FILES OPEN? 

BRANCH IF SOME FILE OPEN 

ELSE SAVE THE VCB ENTRY PTR 

VOLUME SWAPPED OUT? 

YES, CANT BE THE ACTIVE VOL 



BRANCH IF MATCH. 
IS THIS A FREE VCB? 

BRANCH IF NOT FREE, OTHEWISE TAKE NEXT BRANCH. 
TEST FOR A VOLUME NAME LENGTH 

BRANCH IF VCB FREE 

SAVE CURRENT ADDRESS OF VCB. 

TEST FOR ANY OPEN FILES. 

LOG THE VOLUME IN JUST TO BE SURE 

SET UP 

DEVICE NUMBER ARGUMENT 
SAVE PTR TO VCB 
ON STACK 

COMPARES VCBPTR TO DEVNUM CONTENTS 

SEE IF NOTHING IN DRIVE 
BRANCH IF NOTHING IN DRIVE 

IS THE VOLUME AN UNRECOGNIZED SOS OR (UCSD OR DOS) ? 

DEFINITELY NOT SOS FORMAT 

START VCB SCAN AT BEGINNING 

FIND A FREE VCB AND LOG IN THE NEW GUY 

CAN'T LOG IN NEW GUY — KEEP OLD 

PASS BACK X AS NEW VCB 



TEMP VCB PTR FOR VCB W/ NO FILES OPEN 

RETURN IT TO USER 
REMEMBER OLD VCB PTR 
AND PASS BACK TO USER 



; RETURN SOME VOLUME ERROR 



; REPORT OTHER ERROR FROM LOGGING IN NEW VOL AS VNF 

; MAKE STACK CORRECT 
; RESTORE ERROR CODE 

; IF DUPLICATE VOLUME ERROR, RETURN FACT TO USER 

; MAKE STACK CORRECT 
; FOR THE PASCAL FOLK 

; NOTSOS MEANS UCSD OR DOS OR BAD SOS VOLUME 

; THROW AWAY OLD VCB PTR 

; AND REPORT VOLUME NOT FOUND 

; SAVE ADDRESS OF FREE VCB. 
; BUMP TO NEXT VOLUME ENTRY. 



BRANCH IF MORE TO CHECK. 
FREE VCB YET FOUND? 
BRANCH IF YES 
SAVE POSSIBLE FREE VCB 
AND SAVE PTR PERMANENTLY 
WAS A FREE VCB FOUND? 

BRANCH IF VOLUME CAN'T BE LOGGED IN. 
GET DEVICE NUMBER 
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000563 




STA 


DEVNUM 


; SAVE DEVICE NUMBER. 


000564 




LDA 


#1 


; FAKE OUT ' LOKVOL ' 


000565 




STA 


SCRTCH 


; TO THINK TO LOOK ONLY ONCE . 


000566 




STA 


TOTDEVS 




000567 




LDA 


#<VCB 




000568 




STA 


VCBPTR+1 




000569 




STA 


PATHNMH 


; (TO MAKE HARMLESS) 


000570 




LDA 


#0 




000571 




STA 


S I STER+ PATHNMH 




000572 




LDX 


VCBPTR 




000573 




STX 


PATHNML 




000574 




STA 


VCB, X 


; FORCE CURRENT VOLUME OFF LINE, THEN LOG WHATS 


000575 




JSR 


FREEVCB 


; GO READ ROOT DIRECTORY. 


000576 




BCS 


RTVOLNAM 


; RETURN ANY ERRORS 


000577 




LDX 


VCBPTR 


; MAKE SURE VOLUME WAS LOGGED IN 


000578 




LDA 


VCB, X 




000579 




BEQ 


NOVOLM 


; RETURN ERROR 


000580 




RTS 




; ELSE RETURN NORMALLY 


000581 


NOVOLM 


LDA 


#VNFERR 


; TELL USER ' NO VOLUME ' 


000582 




SEC 






000583 


RTVOLNAM 


TAX 




; SAVE REAL ERROR WHILE DUPLICATE IS CHECKED 


000584 




LDA 


DUPLFLAG 




000585 




BEQ 


RTVl 


; BRANCH IF NOT DUPLICATE 


000586 




LDX 


#DUPVOL 




000587 


RTVl 


TXA 




; RECALL ERROR 


000588 




RTS 






000589 










000590 




CHN 


VOLUME, 4, 1 




000591 










000592 


*********************************************************** 


000593 


* END OF APPLE 


/// SOS 1 


3 SOURCE CODE FILE: 


PATH 


000594 


************************************************************************* 


000595 










000596 










End of 


File — Lines : 


596 Characters: 24986 
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FILE: "SOS. POSN. OPEN. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: POSN. OPEN 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



GETMARK 
GMARKl 



SMARKl 
CMPEOF 



SUBMARK 
SUB POSN 



ADJMRK 
ADJMRKO 



PAGE 

LDY 

LDA 

PHA 

INY 

CPY 

BNE 

LDA 

LDY 

PHA 

PLA 

STA 

DEY 

BPL 

CLC 

RTS 

JSR 
BCC 
RTS 
LDX 
LDY 
LDA 
CMP 
BCC 
BNE 
DEY 
DFX 
BPL 
BMI 
LDA 
RTS 

LDA 
BNE 
LDX 
LDY 
LDA 
LSR 
ECS 
BEQ 
LDA 
ADC 
STA 
INY 
INX 
BNE 
BCS 
BEQ 

PAGE 

BNE 

LDY 

LDA 

SBC 

STA 

INY 

INX 

BNE 

BCS 

LDA 

SEC 

RTS 

LDX 
LDA 
STA 
DEX 

BPL 
CLC 
RTS 



#FCBMARK 
(FCBPTR) , Y 



#FCBMARK+3 

GMARKl 

#0 

#3 



(C.MRKPTR) , Y 
MOVMRK 



ADJMARK 
SMARKl 

#2 

#FCBE0F+2 
TPOSLL,X 

(FCBPTR) , Y 
CKSAMBLK 
ERRMEOF 



CMPEOF 

CKSAMBLK 

#POSNERR 



C.MARK+3 

ERRPOSN 

#$FD 

#FCBMARK 

C.BASE 

A 

SUBMARK 
ADJMRK 
(FCBPTR) , Y 
C.MARK+3, X 
>TPOSLL-$FD,X 



ADDPOSN 
ERRPOSN 
ADJMRKl 



SUBPOSN 
IFCBEOF 
(FCBPTR) , Y 
C.MARK+3, X 
>TPOSLL-$FD,X 



SUBPOSN 
ADJMRKl 
#POSNERR 



#2 

C.MARK,X 
TPOSLL,X 

ADJMRKO 



MOVE CURRENT POSITION MARKER TO 
USER'S 4 BYTE BUFFER POINTED TO BY 
C.MRKPTR IN SOS ZPAGE 

USE STACK AS TEMPORARY STORAGE FOR THREE BYTE 
POSITION VALUE. 

THE FOURTH (HIGHEST ORDER) BYTE IS ALWAYS ZERO. 



MOVE TO USER'S SPACE 

IS THERE ANOTHER TO PULL FROM STACK? 
YES, GET NEXT LOWER BYTE FROM STACK. 
INDICATE NO ERROR. 



MAKE ADJUSTMENTS TO REQUESTED MARK ACCORDING TO BASE. 
BRANCH IF ADJUSTMENT WAS VALID. 

NOW COMPARE END OF FILE WITH NEW 
POSITION TO BE SURE IT'S WITHIN 
THE BOUNDS OF CURRENTLY DEFINED 
LIMITS. 

BRANCH IF MARK<EOF 

RETURN ERROR IF MARK>= EOF 



BRANCH ALWAYS 

TELL USER MARK IS OUT OF RANGE. 
(CARRY IS SET TO INDICATE ERROR) 

MAKE SURE FOURTH BYTE OF DISPLACE IS ZIP 

BRANCH TO ERR IF NOT 

ANTICIPATE OTHER THAN BASE OF ZERO 

FURTHER ASSUME IT'S A BASE OFFSET FROM CURRENT POSITION 
NOW FIND OUT WHAT IT REALLY IS. 

(CARRY SET=SUBTRACT, NON ZERO REMAINDER= OFFSET FROM EOF) 

BRANCH IF MARK IS FROM BEGINNING OF FILE 

ADD USER QUANTITY TO CURRENT 
POSITION TO FORM NEW POSITION. 

(NOTE: ZERO PAGE REFERENCE WRAPS AROUND IN Z-PAGE) 



ADD ALL THREE BYTES 
BRANCH IF OVERFLOW 
BRANCH ALWAYS 



BRANCH IF IT'S AN OFFSET FROM CURRENT POSITION 

OTHERWISE ASSUME OFFSET FROM END OF FILE. 

SUBTRACT USER QUANTITY TO FORM 

NEW POSITION. IF FINAL 

RESULT IS L.T. ZERO, THEN REPORT 

POSITION ERROR. . . 



BRANCH IF LEGAL POSITION CALCULATED. 
INDICATE ERROR 



FIRST SET UP POSITION TEMPS USED 
BY BOTH POSITION ROUTINES 



NO ERRORS 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



RDPOSN 
CKSAMBLK 



CHKDSKSl 



POSNEWl 



EQU 
EQU 
LDY 
LDA 

AND 
STA 
INY 
LDA 
SEC 
SBC 
STA 
BCC 
CMP 
ECS 
LDA 
CMP 
BNE 
JMP 

LDY 
LDA 
BEQ 

CMP 
BCC 
JMP 

EQU 
LDY 
LDA 
STA 
JSR 
LDA 
BEQ 
JSR 
BCC 
JSR 
BCC 
LDA 
RTS 

LDY 
STA 
LDA 
SEC 
RTS 

PAGE 

LDY 

LDA 

STA 
LDY 
LDA 
AND 
BEQ 
JSR 
BCS 

LDY 

LDA 
AND 
STA 
LDA 
SEC 
SBC 
BCC 
CMP 
BCS 
LDX 
DEX 
BNE 
LDA 
LSR 
ORA 
BNE 
LDY 
LDA 
STA 
INY 
LDA 



#FCBMARK+1 
(FCBPTR) , Y 
#$FE 
SCRTCH 

TPOSLH 

SCRTCH 
SCRTCH 
TYPMARK 
#2 

TYPMARK 
TPOSHI 
(FCBPTR) , Y 
TYPMARK 
SVMARK 

#FCBSTYP 
(FCBPTR) , Y 
FERRTYP 

#4 

CHKDSKSW 
DIRMARK 



#FCBDEVN 
(FCBPTR) , Y 
DEVNUM 
TWRPROTl 

DSWGLOB 

TREPOS 

VERFYVOL 

TREPOS 

USRREQ 

CHKDSKSl 

#VNFERR 



IFCBREFN 
(FCBPTR) , Y 
#BADREFNUM 



#FCBSTYP 
(FCBPTR) , Y 

LEVELS 

tFCBSTAT 

(FCBPTR) , Y 

IDATMOD 

POSNEWl 

WFCBDAT 

POSERR 

#FCBMARK+2 

(FCBPTR) , Y 
#$FE 
SCRTCH 
TPOSHI 

SCRTCH 

P0SNEW2 

#2 

P0SNEW2 

LEVELS 

DATLEVEL 

TPOSLH 

A 

TPOSHI 
NOIDXDAT 
#FCBFRST 
(FCBPTR) , Y 

BLOKNML 

(FCBPTR) , Y 



FIRST TEST TO SEE IF NEW POSITION IS 
WITHIN THE SAME (CURRENT) DATA BLOCK. 



BUMP TO ACCESS HIGHEST ORDER ADDRESS BYTE 
GET MIDDLE BYTE OF NEW POSITION 



BRANCH IF POSSIBLY L.T. CURRENT POSITION 

MUST BE WITHIN 512 BYTES OF BEGINNING OF CURRENT 

NOW MAKE SURE WERE TALKIN ABOUT 
THE SAME 64K CHUNK! 
BRANCH IF WE AREN'T. 

IF WE IS, ADJUST FCB AND POSPTR AND RETURN. 



NOW FIND OUT WHICH TYPE 

OF FILE WE'RE POSITIONING ON. 

THERE IS NO SUCH TYPE AS ZERO, 

IS IT A TREE CLASS FILE? 

YES, GO POSITION 

NO, TEST FOR DIRECTORY TYPE. 



BRANCH NEVER! 



MAKE SURE S/HE HASN'T MOVED THE VOLUME 



MAKE SURE DEVICE NUMBER PARM IS CURRENT 
PASSES DEVNUM (CHECK DISK SWITCH) 

DISK SWITCH GLOBAL 
BRANCH IF NONE DETECTED 
MATCHES VCBPTR VS. DEVNUM 
BRANCH IF DISK HASN'T SWITCHED 
POLITELY ASK USER TO MOUNT 
SAID HE DID, CHECK AGAIN 
REFUSES TO MOUNT 



CLEAR ILLEGALLY TYPED FCB ENTRY 
TELL EM THERE IS NO SUCH FILE 



USE STORAGE TYPE AS NUMBER 

OF LEVELS (SINCE 1=SEED, 2=SAPLING, AND 3=TREE) 

SINCE IT'S A DIFFERENT DATA 

BLOCK, MUST NOT FORGET PREVIOUS DATA. 

THEREFORE, SEE IF PREVIOUS DATA WAS MODIFIED 

THEN DISK MUST BE UPDATED. 

GO WRITE CURRENT DATA BLOCK. 

RETURN ANY ERROR ENCOUNTERED. 

TEST TO SEE IF CURRENT 

INDEX BLOCK IS GOING TO BE USABLE... 
OR IN OTHER WORDS - 

IS NEW POSITION WITHIN 128K OF THE BEGINNING 
OF CURRENT SAPLING LEVEL CHUNK. 



BRANCH IF A NEW INDEX BLOCK IS ALSO NEEDED 

NEW POSITION IS > THAN BEGINING OF OLD. IS IT WITHIN 128K? 
BRANCH IF NOT. 

IS THE FILE WE'RE DEALING WITH A SEED? 

NO, USE CURRENT INDEXES. 
IS NEW POSITION UNDER 512? 



NO, MARK BOTH DATA AND INDEX BLOCK AS UN-ALLOCATED. 
FIRST BLOCK IS ONLY BLOCK AND IT'S DATA! 

(HIGH BLOCK ADDRESS) 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 



; GO READ IN BLOCK AND SET APPROPRIATE STATUSES. 



P0SNEW2 



DATLEVEL 



PAGE 
LDY 
LDA 
AND 

BEQ 
JSR 
BCS 
LDX 
CPX 
BEQ 
LDA 
LSR 
PHP 
LDA 
PLP 
BNE 
JSR 
DEX 
BEQ 
JSR 
BCS 
LDY 
LDA 
STA 
I NY 
LDA 
STA 
BCC 
SEC 
RTS 

JSR 
JSR 
BCS 
LDA 
LSR 
TAY 
LDA 
INC 
CMP 
BNE 
CMP 
BNE 
DEC 
LDA 
JMP 

PAGE 
STA 

LDA 
STA 
DEC 
JSR 
BCS 
LDA 
LSR 
LDA 
ROR 
TAY 
LDA 
INC 
CMP 
BNE 
CMP 
BNE 
LDA 
DEC 

LDY 
ORA 
STA 
LSR 
LSR 
JSR 
BCC 
STA 
INY 
BNE 
INC 



#FCBSTAT 
(FCBPTR) , Y 
#IDXM0D 

POSNIDX 
WFCBIDX 
POSERR 
LEVELS 
#3 

POSINDEX 
TPOSHI 
A 

#TOPALC+IDXALC+DATALC 

NODATA 
CLRSTATS 

TSTINY 
RFCBFST 
POSERR 
#FCBIDXB 
BLOKNML 
(FCBPTR) , Y 

BLOKNMH 
(FCBPTR) , Y 
DATLEVEL 



CLRSTATS 

RFCBFST 

POSERR 

TPOSHI 

A 

(TINDX) , Y 
TINDX+1 
(TINDX) , Y 

SAPLEVEL 

#0 

SAPLEVEL 
TINDX+1 

#IDXALC+DATALC 
NODATA 



BLOKNML 

(TINDX) , Y 
BLOKNMH 
TINDX+1 
RFCBIDX 
POSERR 
TPOSHI 
A 

TPOSLH 
A 

(TINDX) , Y 
TINDX+1 

(TINDX) , Y 

P0SNEW3 

#0 

P0SNEW3 
#DATALC 
TINDX+1 

tFCBSTAT 
(FCBPTR) , Y 
(FCBPTR) , Y 

A 

A 

ZIPDATA 
SVMARK 
(TINDX) , Y 

ZIPIDX 
TINDX+1 



GOTA CHECK TO SEE IF PREVIOUS 
INDEX BLOCK WAS MODIFIED. 

READ IN OVER IT IF CURRENT IS UP TO DATE. 
GO UPDATE INDEX ON DISK (BLOCK ADDR IN FOB) 

BEFORE READING IN TOP INDEX, CHECK TO BE SURE 
THAT THERE IS A TOP INDEX... 
BRANCH IF FILE IS FULL BLOWN TREE. 
IS NEW POSITION WITHIN RANGE OF A 
SAPLING FILE (L.T. 128K) ? 
ANTICIPATE NO GOOD. 
; (TO INDICATE NO LEVEL IS ALLOCATED FOR NEW POSITION.) 
Z FLAG TELLS ALL. . . 
GO MARK 'EM ALL DUMMY. 

GO CLEAR STATUS BITS 0,1,2 (INDEX/DATA ALLOC STATUS). 
(UNAFFECTED SINCE LOADED ABOVE) CHECK FOR SEED 
IF SEED, CHECK FOR POSITION L.T. 512... 
GO GET ONLY INDEX BLOCK 
BRANCH IF ERROR 

SAVE NEWLY LOADED INDEX BLOCK'S ADDRESS 



; BRANCH ALWAYS. 



CLEAR ALL ALLOCATION REQUIREMENTS FOR PREVIOUS POSITION 
GET HIGHEST LEVEL INDEX BLOCK. 



THEN TEST FOR A SAP LEVEL INDEX BLOCK 



(BOTH HI AND LO WILL BE ZERO IF NO INDEX EXISTS) 
ARE BOTH BYTES ZERO? 



DON'T LEAVE WRONG POINTERS LAYING AROUND! 
SHOW NEITHER INDEX OR DATA BLOCK ALLOCATED. 



READ IN NEXT LOWER INDEX BLOCK 
(HI ADDRESS) 



READ IN SAPLING LEVEL 
NOW GET BLOCK ADDRESS OF DATA BLOCK 
( IF THERE IS ONE ) 

DATA BLOCK ADDRESS LOW 



SHOW DATA BLOCK AS NEVER BEEN ALLOCATED 



; SET STATUS TO SHOW WHATS MISSIN' 

; THROW AWAY BIT THAT SAYS DATA BLOCK UN-ALLOCATED 

; CUZ WE KNOW THAT. CARRY NOW INDICATES IF INDEX BLOCK 

; ALSO IS INVALID AND NEEDS TO BE ZEROED (CARRY UNDISTURBED) 

; BRANCH IF INDEX BLOCK DOESN'T NEED ZIPPIN. 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 



ZIPDATA 
ZIPDATO 



P0SNEW3 



SVMARK 
SVMRKl 



STA 
INY 
BNE 
DEC 
JMP 

LDA 
TAY 
STA 
INY 
BNE 
INC 
STA 
INY 
BNE 
DEC 
RTS 

PAGE 

STA 
LDA 
DEC 
STA 

JSR 
BCS 
JSR 
LDY 
LDX 
LDA 
STA 
LDA 
STA 
DEY 
DEX 
BPL 

CLC 
LDA 
STA 
LDA 
AND 
ADC 
STA 
LDA 
STA 
RTS 
SEC 
RTS 



LDY 
LDA 
AND 
STA 
RTS 

PAGE 

CMP 

BEQ 
LDA 
JSR 

LDA 
LSR 
STA 
LDY 
LDA 
CMP 
BCC 
LDY 
JSR 
BCS 
INC 
BPL 
BMI 

LDY 
JSR 
BCS 



(TINDX) , Y 

ZPIDXl 

TINDX+1 

SVMARK 

#0 

(DATPTR) , Y 

ZIPDATO 
DATPTR+1 
(DATPTR) , Y 

ZPDATl 
DATPTR+1 



BLOKNML 
(TINDX) , Y 
TINDX+1 
BLOKNMH 

RFCBDAT 

PRITZ 

CLRSTATS 

#FCBMARK+2 

#2 

(FCBPTR) , Y 
OLDMARK-FCBMARK, Y 
TPOSLL,X 

(FCBPTR) , Y 



RESTORE PROPER ADDRESS 

ALSO IS INVALID AND NEEDS TO BE ZEROED. 
ZERO OUT DATA AREA 



SVMRKl 



DATPTR 
POSPTR 
TPOSLH 
#1 

DATPTR+1 
POSPTR+1 
SISDATP 
SISPOSP 



GET DATA BLOCK OF NEW POSITION 
(HI ADDRESS) 



RETURN ANY ERROR 

SHOW WHOLE CHAIN IS ALLOCATED 

UPDATE POSITION IN FILE CONTROL BLOCK 

REMEMBER OLDMARK IN CASE 
CALLING ROUTINE FAILS LATER 



MOVE 3 BYTE POSITION MARKER 



LAST, BUT NOT LEAST, SET UP 

INDIRECT ADDRESS TO BUFFER PAGE POINTED 

TO BY THE CURRENT POSITION MARKER. 



SISTER PAGE BYTE ALSO. 

CARRY SHOULD ALWAYS BE CLEAR 

RANDOM ERROR 

RETURN 



#FCBSTAT ; CLEAR ALLOCATION STATES FOR DATA BLOCK 

( FCBPTR), Y ; AND BOTH LEVELS OF INDEXES. 

#$FF-TOPALC-IDXALC-DATALC 



(FCBPTR) , Y 



#DIRTYP 

DIRPOS 

tCPTERR 

SYSERR 

SCRTCH 
A 

CNTENT 
#FCBMARK+1 
(FCBPTR) , Y 

TPOSLH 
DIRFWRD 

#0 

DIRPOSl 

DRPOSERR 

CNTENT 

DIRVRSE 

SVMARK 

#2 

DIRPOSl 
DRPOSERR 



; THIS SAYS THAT EITHER THEY EXIST CURRENTLY 

; OR THAT THEY'RE UNNECESSARY FOR CURRENT POSITION. 



IS IT A DIRECTORY? 
YES . . . 

NO, THERE IS A COMPATABLITY PROBLEM- 

THE DAMN THING SHOULD OF NEVER BEEN OPENED! 

RECOVER RESULTS OF PREVIOUS SUBTRACTION. 
USE DIFFERENCE AS COUNTER AS TO HOW MANY 
BLOCKS MUST BE READ TO GET TO NEW POSITION. 
TEST FOR POSITION DIRECTION. 

CARRY INDICATES DIRECTION... 
IF SET, POSITION FORWARD. 

OTHERWISE, READ DIRECTORY FILE IN REVERSE ORDER. 

READ PREVIOUS BLOCK. 

BRANCH IF ANYTHING GOES WRONG. 

COUNT UP TO 128 

LOOP IF THERE IS MORE BLOCKS TO PASS OVER. 
BRANCH ALWAYS. 

POSITION IS FORWARD FROM CURRENT POSITION. 
READ NEXT DIRECTORY BLOCK. 
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000320 


DEC 


CNTENT 








000321 


BNE 


DIRFWRD 






; LOOP IF POSITION NOT FOUND IN THIS BLOCK. 


A A O O O 


BEQ 


SVMARK 






; BRANCH ALWAYS . 


A A A O O 

000323 












000324 


DIRPOSl LDA 


(DATPTR) , Y 






; GET LINK ADDRESS OF PREVIOUS OR 


A A A O A IT 

000325 


STA 


BLOKNML 






; NEXT DIRECTORY BLOCK. 


00032D 


INY 








; BUT FIRST BE SURE THERE IS A LINK. 


000327 


CMP 


(DATPTR) , Y 








000328 


BNE 


DIRP0S2 






; BRANCH IF CERTAIN LINK EXISTS 


000329 


CMP 


#0 






; ARE BOTHE LINK BYTES 0? 


A A A t) O A 

000330 


BNE 


DIRP0S2 






; NOPE, JUST HAPPEN TO BE THE SAME VALUE. 


A A A O O T 

000331 


LDA 


#EOFERR 






; SOMETHING IS WRONG WITH THIS DIRECTORY FILE! 


A A A O "3 O 

000332 


DRPOSERR SEC 








; INDICATE ERROR 


A A A O O 

000333 


RTS 










A A A O O A 

000334 


* 










A A A O O IT 

000335 


DIRP0S2 LDA 


(DATPTR) , Y 






; (HIGH ORDER BLOCK ADDRESS) 


A A A O O j' 

00033d 


STA 


BLOKNMH 








A A A t) O ^ 

000337 


* DROP INTO 'RFCBDAT' 


(READ FILE'S DATA BLOCK) 




000338 












A A A t) O A 

000339 


* NOTE: FOR DIRECTORY 


POSITIONING NO OPTIMIZATION HAS BEEN 


000340 


* DONE SINCE DIRECTORY 


FILES WILL ALMOST 


ALWAYS BE LESS 


A A A O /IT 

000341 


* THAN 6 BLOCKS. IF MORE SPEED IS REQUIRED 


OR 


DIRECTORY 


000342 


* TYPE FILES ARE TO BE 


USED FOR OTHER PURPOSES 


REQUIRING 


A A A O /I 

000343 


* MORE BLOCKS, THEN THE RECOMMENDED METHOD 


IS 


TO CALL 


000344 


* 'RFCBDAT' FOR THE FIRST BLOCK AND GO DIRECTLY TO 


000345 


* DEVICE (VIA JMP (lOUNITL)) HANDLER FOR 


SUBSEQUENT 


000346 


* ACCESSES. 










000347 


* ALSO NOTE THAT NO CHECKING IS DONE FOR 


READ/WRITE 


000348 


* ENABLE SINCE A DIRECTORY FILE CAN ONLY 


BE 


OPENED 


A A A O /I A 

000349 


* FOR READ ACCESS. 










A A A O C A 

000350 












A A A O C T 

000351 


PAGE 










A A A O C O 

000352 












A A A O C O 

000353 


RFCBDAT LDA 


#RDCMD 






; SET READ COMMAND . 


A A A t) r A 

000354 


STA 


DHPCMD 








000355 


LDX 


#DATPTR 






; USE X TO POINT AT ADDRESS OF DATA BUFFER 


000356 


JSR 


FILEIOl 






; GO DO FILE INPUT . 


000357 


LDY 


#FCBDATB 






; SAVE BLOCK NUMBER JUST READ IN FOB. 


A A A o c n 

000358 


BCC 


FCBLOKNM 






; BRANCH IF NO ERRORS HAPPENED. 


A A A O C A 

000359 


RTS 








; RETURN ERROR 


A A A O ^ A 

000360 












A A A O ^ T 

000361 


RFCBIDX LDA 


#RDCMD 






; PREPARE TO READ IN INDEX BLOCK. 


A A A "3 i^O 

000362 


STA 


DHPCMD 








000363 


LDX 


#TINDX 






; POINT AT ADDRESS OF CURRENT INDEX BUFFER 


000364 


JSR 


FILEIOl 






; GO READ INDEX BLOCK. 


000365 


BCS 


RDFCBERR 






; REPORT ERROR 


000366 


LDY 


#FCBIDXB 






; SAVE BLOCK ADDRESS OF THIS INDEX IN FOB. 


A A A O ^ T 

000367 


FCBLOKNM LDA 


BLOKNML 








A A A o ^ n 

000368 


STA 


(FCBPTR) , Y 








000369 


INY 










A A A O T A 

000370 


LDA 


BLOKNMH 








000371 


STA 


(FCBPTR) , Y 








000372 


CLC 










000373 


RDFCBERR RTS 










000374 


* 










A A A O "7 C 

0003 /5 


RFCBFST LDX 


#TINDX 






; POINT AT ADDRESS OF INDEX BUFFER 


A A A O ""J z' 

000376 


LDY 


#FCBFRST 






; AND BLOCK ADDRESS OF FIRST FILE BLOCK IN FOB 


000377 


LDA 


#RDCMD 






; AND LASTLY, MAKE IT A READ! 


A A A O T n 

000378 


* DROP INTO DOFILEIO 










A A A O T A 

000379 


* 










A A A t) O A 

000380 


DOFILEIO STA 


DHPCMD 






; SAVE COMMAND. 


000381 


LDA 


(FCBPTR) ,Y 






; GET DISK BLOCK ADDRESS FROM FCB. 


000382 


STA 


BLOKNML 








A A A O O 

000383 


INY 








; BLOCK ZERO NOT LEGAL. 


000384 


CMP 


(FCBPTR) , Y 








A A A O O IT 

000385 


BNE 


FILEIO 








A A A O O 

000386 


CMP 


#0 






; ARE BOTH BYTES ZERO? 


A A A O O ^ 

000387 


BNE 


FILEIO 






; NO, CONTINUE WITH REQUEST. 


A A A o o n 

000388 


LDA 


#ALCERR 






; OTHERWISE REPORT ALLOCATION ERROR. 


A A A O A 


JSR 


SYSDEATH 






; NEVER RETURNS . . . 


000390 


* 










000391 


PAGE 










000392 


FILEIO LDA 


(FCBPTR) ,Y 






; GET HIGH ADDRESS OF DISK BLOCK 


000393 


STA 


BLOKNMH 








000394 


FILEIOl LDA 


0,X 






; GET MEMORY ADDRESS OF BUFFER FROM 


000395 


STA 


DBUFPL 






; S.O.S. ZERO PAGE POINTED TO BY 


000396 


JSR 


WRAPADJ 






;G0 ADJUST FOR BANK CROSSING <SRS 82.162> 


000397 


LDA 


1,X 








000398 


STA 


DBUFPH 






; SET HI BYTE 


000399 


LDA 


SISTER+1,X 






; AND BANK PAIR BYTE. <SRS 82.162> 


000400 


STA 


SISBPH 
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000401 
000402 
000403 
000404 
000405 
000406 
INTERUPT ! ) 
000407 
000408 
000409 
000410 
000411 
000412 
000413 
000414 
000415 
000416 
000417 
000418 
000419 
000420 
000421 
000422 
000423 
000424 
000425 
000426 
000427 
000428 
000429 
000430 
000431 
000432 
000433 
000434 
000435 
000436 
000437 
000438 
000439 
000440 
000441 
000442 
000443 
000444 
000445 
000446 
000447 
000448 
000449 
000450 
000451 
000452 
000453 
000454 
000455 
000456 
000457 
000458 
000459 
000460 
000461 
000462 
000463 
000464 
000465 
000466 
000467 
000468 
000469 
000470 
000471 
000472 
000473 
000474 
000475 
000476 
000477 
000478 
000479 
000480 



FILEI02 



RPEATIOl 



RPEATIOO 
SAVPRMS 



RRITZ 
RPEATI02 
GETPRMS 



TRASH 
RPTBLOK 



LDY 
LDA 
STA 
LDA 
STA 
STA 

LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
DEY 
BPL 
EQU 
LDA 
STA 
JSR 
BCC 
CMP 
BEQ 
SEC 
RTS 
LDY 
LDA 
STA 
DEY 
BPL 
JMP 



DS 
DS 



LDY 
LDA 
TAX 
JSR 
LDX 
LDY 
LDA 
JMP 

LDX 
LDY 
LDA 
JSR 
BCS 
LDA 
JMP 

LDY 

LDA 
TAX 
JSR 
LDX 
LDY 
LDA 
JSR 
BCS 
LDA 
LDY 
AND 
STA 
RTS 



PAGE 

JSR 

BCC 

CMP 

BNE 



IFCBDEVN 
(FCBPTR) , Y 
DEVNUM 
#2 

RQCNTH 
lOACCESS 

#>TRASH 

BRDPTR 

#<TRASH 

BRDPTR+1 

#0 

RQCNTL 

SSBRDPH 

DEVNUM 

UNITNUM 
#$9 

DEVICE, Y 
RPTBLOK, Y 

SAVPRMS 
* 

#0 

SERR 

DMGR 

RRITZ 

#XDISKSW 

RPEATI02 



#$9 

RPTBLOK, Y 
DEVICE, Y 

GETPRMS 
DMGRGO 



2 

10 



#FCBDEVN 
(FCBPTR) , Y 

UPBMAP 

#TINDX 

#FCBFRST 

#WRTCMD 

DOFILEIO 

#DATPTR 

IFCBDATB 

tWRTCMD 

DOFILEIO 

FILIOERR 

#$FF-DATMOD 

FCBUPDAT 

#FCBDEVN 
(FCBPTR) , Y 

UPBMAP 

ITINDX 

#FCBIDXB 

#WRTCMD 

DOFILEIO 

FILIOERR 

#$FF-IDXMOD 

#FCBSTAT 

(FCBPTR) , Y 

(FCBPTR) , Y 



FINDFILE 
OPENO 
#BADPATH 
ERROPN 



OF COURSE HAVING THE DEVICE NUMBER 

WOULD MAKE THE WHOLE OPERATION MORE MEANINGFUL... 
ALSO, SET UP BYTE COUNT TO 512 AND 
SET 'BYTES READ' POINTER TO 

(INTERUPT! SET TO INDICATE REG CALL MADE TO DEV HANDLER. RETURN 
; A PLACE TO THROW BYTES READ AWAY 
; LOCALLY DEFINED 

; SO THAT IT DOESN'T MESS UP ANY OTHER DATA. 
; ('BYTES READ' IS THROWN AWAY) 

; TRANSFER THE DEVICE NUMBER FOR DISPATCHER TO CONVERT TO UNIT NUMBER. 

; PREPARE TO SAVE DEVICE PARMS 

; MOVE FROM Z PAGE 

; TO MY OWN SPACE 

; FROM $C9 THROUGH $C0 

; CALL EXTERNAL DEVICE MANAGER 

CLEAR GLOBAL ERROR VALUE 

CALL THE DRIVER 
RTS IF NO ERRORS 
DISKSWITCH ITERATES 

BRANCH IF DISK SWITCH AND REPEAT I/O REQUEST 
REPORT ERROR 

LENGTH OF PARM BLOCK 

RESTORE POSSIBLY DISTURBED PARM BLOCK 



; AND TRY THE I/O AGAIN 



ONLY USED TO PUT BYTES READ TO SLEEP 
DMGR PARM SAVE BLOCK 



FETCH THE 
DEVICE NUMBER 
AND UPDATE 
ITS BITMAP 
POINT AT ADDRESS OF INDEX BLOCK 

AND THE DISK ADDRESS OF FILE'S FIRST BLOCK IN FOB 
LASTLY, MAKE IT A WRITE REQUEST. 
AND GO DO IT! 



POINT AT MEMORY ADDRESS WITH X AND DISK ADDRESS WITH Y. 
WRITE DATA BLOCK. 



REPORT ANY ERRORS 

MARK DATA STATUS AS CURRENT. 



MAKE SURE 

THE BITMAP 

FOR THIS DEVICE ("X") 
IS UPDATED 
POINT AT ADDRESS OF INDEX BUFFER 
AND BLOCK ADDRESS OF THAT INDEX BLOCK. 

GO WRITE OUT INDEX BLOCK. 

REPORT ANY ERRORS 

MARK INDEX STATUS AS CURRENT. 

CHANGE STATUS BYTE TO 

REFLECT SUCCESSFUL DISK FILE UPDATE. 
(CARRY IS UNAFFECTED) 



FIRST OF ALL LOOK UP THE FILE . . 



IS AN ATTEMPT TO OPEN A ROOT DIRECTORY? 
NO, PASS BACK ERROR 
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000481 
000482 
000483 
000484 
000485 
000486 
000487 
000488 
000489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000508 
000509 
000510 
000511 
000512 
000513 
000514 
000515 
000516 
000517 
000518 
000519 
000520 
000521 
000522 
000523 
000524 
000525 
000526 
000527 
000528 
000529 
000530 
000531 
000532 
000533 
000534 
000535 
000536 
000537 
000538 
000539 
000540 
000541 
000542 
000543 
000544 
000545 
000546 
000547 
000548 
000549 
000550 
000551 
000552 
000553 
000554 
000555 
000556 
000557 
000558 
000559 
000560 
000561 



OPENO 



ERRBUSY 
ERROPN 



ASGNFCB 
CLRFCB 



DEFOPEN 
SVATTRB 



0PEN2 
ERRCMPAT 



0PEN3 



JSR 
BCC 
LDA 
SEC 
RTS 

LDA 
STA 
LDA 
STA 
BNE 
LDA 
SEC 
RTS 

LDY 

LDA 

STA 

DEY 

BPL 

LDY 

LDA 

STA 

DEY 

BNE 

LDA 

LSR 

LSR 

LSR 

LSR 

TAX 

LDY 

STA 

LDA 

BEQ 

LDY 

LDA 

BEQ 

AND 

CMP 

BEQ 

LDA 

SEC 

RTS 

PAGE 

LDA 

AND 

LDY 

CPX 

BNE 

AND 

STA 

AND 

BEQ 

LDA 

BNE 

LDA 

BEQ 

LDA 

SEC 

RTS 

CPX 
BCC 
CPX 
BNE 
LDY 
LDA 
STA 
STA 
I NY 
LDA 
STA 
STA 
LDY 
LDA 
STA 
INY 
CPY 
BNE 
LDA 



TSTOPEN 

OPENl 

#FILBUSY 



DATPTR 

FCBPTR 

DATPTR+1 

FC3PTR+1 

ASGNFCB 

#FCBFULL 



#$1F 
#0 

(FCBPTR) , Y 

CLRFCB 
#FCBENTN 
D.DEV-1, Y 
(FCBPTR) , Y 

FCBOWNR 
DFIL+D.STOR 

A 
A 
A 
A 

#FCBSTYP 
(FCBPTR) , Y 
C.OPLSTLN 

DEFOPEN 
#0 

(C.OPLIST) , Y 

DEFOPEN 

DFIL+D.ATTR 

(C.OPLIST) , Y 

SVATTRB 

#ACCSERR 



DFIL+D.ATTR 

#READEN+WRITEN 

#FCBATTR 

#DIRTYP 

SVATTRl 

#READEN 

(FCBPTR) , Y 

tWRITEN 

0PEN2 

TOTENT 

ERRBUSY 

DFIL+D.COMP 

0PEN3 

#CPTERR 



#TRETYP+1 
0PEN4 
#DIRTYP 
ERRCMPAT 
#FCBFRST 
DFIL+D.FRST 
(FCBPTR) , Y 
BLOKNML 

DFIL+D.FRST+1 
(FCBPTR) ,Y 
BLOKNMH 
#FCBEOF 

DFIL+D . EOF-FCBEOF, Y 
(FCBPTR) , Y 

#FCBE0F+3 
EOFCBMV 
DFIL+D. USAGE 



FIND OUT IF ANY OTHER FILES ARE WRITING 
TO THIS SAME FILE. (BRANCH IF NOT) 
REPORT SHARED ACCESS NOT ALLOWED. 

RETURN ERROR. 

GET ADDRESS OF FIRST FREE FOB FOUND 

DURING TEST OPEN SEQUENCE AND USE 

IT AS FILE CONTROL AREA. IF HIGH BYTE OF 

POINTER IS ZERO, THEN NO FCB 

IS AVAILABLE FOR USE. 

REPORT FCB FULL ERROR. 



ASSIGN FCB, BUT FIRST 

CLEAN OUT ANY OLD RUBBISH LEFT AROUND. . . 



NOW BEGIN CLAIM BY MOVING IN FILE 
OWNERSHIP INFORMATION. 

NOTE: THIS CODE DEPENDS UPON THE DEFINED 
ORDER OF BOTH THE FCB AND DIRECTORY ENTRY 
BUFFER (D.). BEWARE OF CHANGES!!! ************* 
GET STORAGE TYPE. 
STRIP OFF FILE NAME LENGTH. 

(BY DIVIDING BY 16) 

SAVE IN X FOR LATER TYPE COMPARISON 

SAVE STORAGE TYPE. 

IS THERE AN OPEN LIST? 

NO, USE DEFAULT REQUST ACCESS... 

YES, FIND OUT WHAT ACCESS IS REQUESTED. 

IF REQ-ACCESS IS ZERO, THEN 

USE DEFAULTS . . . 

CHECK REQUEST AGAINST ATTRIBUTES. 
WERE ALL ACCESS REQUESTS SATISFIED? 
YES, SAVE ATTRIBUTES. 
REPORT ACCESS REQUEST CAN'T BE MET. 



GET FILES ATTRIBUTES AND 

USE IT AS A DEFAULT ACCESS REQUEST. 



IF DIRECTORY, DON'T ALLOW WRITE ENABLE 



CHECK FOR WRITE ENABLED REQUESTED. 
BRANCH IF READ ONLY OPEN. 

OTHERWISE, BE SURE NO ONE ELSE IS READING SAME 

FILE (SET UP BY TSTOPEN) . 

OH, BY THE WAY... IS THIS FILE 

COMPATABLE WITH VERSION 0000? *************** 
REPORT FILE IS INCOMPATABLE ! 



IS IT A TREE TYPE FILE? 

TEST FOR FURTHER COMPATABLITY . IT MUST 
BE EITHER A TREE OR A DIRECTORY. 
REPORT INCOMPATABLE. 

MOVE ADDRESS OF FIRST BLOCK OF FILE 

INTO FCB. NO CHECKING IS DONE FOR VALIDITY. 



NOTE: THE FCB HAS NOT BEEN OFFICIALLY 
CLAIMED YET. TO DO THIS, THE FIRST BYTE 
MUST CONTAIN A VALID REFERENCE NUIffiER. 
MOVE CURRENT END OF FILE 
TO FCB. 



• Apple /// Computer » SOS 1.3 Source Code Listing » 169 of 255 




000562 




STA 


(FCBPTR) , Y 


AND CURRENT BLOCK COUNT OF FILE. 


000563 




INY 






000564 




LDA 


DFIL+D .USAGE+1 




000565 




STA 


(FCBPTR) , Y 




000566 




LDA 


C.OPLSTLN 


NOW THAT WE'VE COME THIS FAR, FIND 


000567 




BEQ 


DEFBUFR 


OUT WHICH TYPE OF BUFFER AND ALLOCATE IT! 


r\ f~\ c Ct 




CMP 


#1 


WAS IT ONLY TO SET ATTRIBUTES? 


000569 




BEQ 


DEFBUFR 




000570 




CMP 


#4 


IS A FULL ADDRESS INCLUDED? 


000571 




BEQ 


UBUFSPEC 




000572 




LDA 


#BADLSTCNT 




000573 




SEC 






000574 




RTS 






000575 










000576 




PAGE 






000577 


UBUFSPEC 


LDY 


#1 


(INDEX TO 'PAGECNT' OF OPEN LIST) 


000578 




LDA 


(C . OPLIST) , Y 


IS USER SPECIFING THE BUFFER? 


000579 




BEQ 


DEFBUFR 


NO, USE DEFAULT BUFFER (DYNAMIC) 


000580 




CPX 


#TRETYP+1 


IF TREE TYPE FILE, THEN AT LEAS 4 PAGES ARE NEEDED 


000581 




BCC 


ONEKTST 


BRANCH IF TREE TYPE. 


000582 




CMP 


#2 


DID USER GIVE AT LEAST 2 PAGES FOR DIRECTORY TYPE? 


000583 




BCS 


FIXDBUF 


YES, LOG IT WITH BUFFER MANAGER 


000584 


ERRBTS 


LDA 


#BTSERR 


REPORT NOT ENOUGH BUFFER SPACE . 


000585 




SEC 






r\ 1^ r\ c ci 

000586 




RTS 






000587 










000588 


ONEKTST 


CMP 


#4 


IS THERE AT LEAST ONE KILOBYTE BUFFER FOR TREES? 


000589 




BCC 


ERRBTS 


NO, THEN TO HELL WITH IT! . 


000590 


FIXDBUF 


JSR 


REQFXBUF 


CALL BOB AND ASK FOR HIM TO FIX IT . . . 


000591 




BCC 


FCBUFFER 


GO SAVE BUFFER NUMBER. 


000592 


ERROPNl 


RTS 




RETURN ANY ERROR ENCOUNTERED. 


000593 










000594 


DEFBUFR 


LDA 


#4 


ASSUME TREE FILE (4 PAGES REQUIRED) 


A A A C A IT 

000595 




CPX 


#TRETYP+1 




000596 




BCC 


BUFREQST 


BRANCH IF IT IS A TREE. 


000597 




LDA 


#2 


OTHERWIZE, WE JUST NEED TWO PAGES. 


000598 


BUFREQST 


JSR 


REQBUF 


CALL BOB TO ALLOCATE A DYNAMIC BUFFER. 


000599 




BCS 


ERROPNl 


REPORT ANY ERRORS . 


000600 


FCBUFFER 


LDY 


#FCBBUFN 


SAVE BUFFER NUMBER AND THEN 


000601 




STA 


(FCBPTR) , Y 


FIND OUT WHERE IT IS. 


000602 




JSR 


GTBUFFRS 


HAVE BOB RETURN ADDRESS IN DATA & INDEX POINTERS . 


000603 




BCS 


ERR0PEN2 


IF ERROR, FREE BUFFER BEFOR RETURNING. 


000604 




LDY 


#FCBREFN 


NOW CLAIM FCB FOR THIS FILE. 


000605 




LDA 


CNTENT 




000606 




STA 


(FCBPTR) , Y 




000607 




LDY 


#FCBLEVL 


MARK LEVEL 


000608 




LDA 


LEVEL 


AT WHICH 


000609 




STA 


(FCBPTR) , Y 


FILE WAS OPENED 


000610 




LDY 


#FCBSTYP 


GET STORAGE TYPE AGAIN. 


000611 




LDA 


(FCBPTR) , Y 


FILE MUST BE POSITIONED TO BEGINNING. 


000612 




CMP 


#TRETYP+1 


IS IT A TREE FILE? 


000613 




BCS 


OPNDIR 


NO, ASSUME IT'S A DIRECTORY. 


000614 




LDA 


#$FF 


FOOL THE POSITION ROUTINE INTO GIVING 


000615 




LDY 


#FCBMARK 


A VALID POSITION WITH PRELOADED DATA, ETC. 


000616 


OPNPOS 


STA 


(FCBPTR) , Y 




000617 




INY 






000618 




CPY 


#FCBMARK+3 




000619 




BNE 


OPNPOS 




000620 




LDY 


#2 


SET DESIRED POSITION TO ZERO. 


000621 




LDA 


#0 




A A A O A 

OOOdzz 


OPNPOSl 


STA 


TPOSLL, Y 




000623 




DEY 






000624 




BPL 


OPNPOSl 




000625 




JSR 


RDPOSN 


LET TREE POSITION ROUTINE DO THE REST. 


000626 




BCC 


OPENDONE 


BRANCH IF SUCCESSFUL . 


000627 










000628 




PAGE 






000629 


ERR0PEN2 


PHA 




SAVE ERROR CODE. 


000630 




LDY 


#FCBBUFN 


SINCE ERROR WAS ENCOUNTERED BEFORE FILE 


000631 




LDA 


(FCBPTR) , Y 


WAS SUCCESSFULLY OPENED, THEN 


000632 




JSR 


RELBUF 


IT'S NECESSARY TO FREE THE BUFFER AND 


000633 




LDY 


fFCBREFN 


FILE CONTROL BLOCK. 


000634 




LDA 


#0 




000635 




STA 


(FCBPTR) , Y 




000636 




PLA 






000637 




SEC 






000638 




RTS 






000639 


* 








000640 


OPNDIR 


JSR 


RFCBDAT 


READ IN FIRST BLOCK OF DIRECTORY FILE. 


000641 




BCS 


ERR0PEN2 


RETURN ANY ERROR AFTER FREEING BUFFER & FCB 


000642 


OPENDONE 


LDY 


#VCBOPNC 


INCREMENT OPEN COUNT FOR THIS 
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000643 




LDA 


(VCBPTR) , Y 


VOLUME . ALSO MARK STATUS . 


000644 




CLC 






000645 




ADC 


#1 




000646 




STA 


(VCBPTR) , Y 




000647 




LDY 


#VCBSTAT 


HI BIT INDICATES VOLUME BUSY 


000648 




LDA 


(VCBPTR) , Y 




000649 




ORA 


#$80 




000650 




STA 


(VCBPTR) , Y 


DOESN'T MATTER HOW MANY, JUST BE SURE IT'S SET. 


000651 




LDY 


fFCBREFN 


PASS USER HIS REFERENCE NUMBER 


000652 




LDA 


(FCBPTR) , Y 




000653 




LDY 


#0 




000654 




STA 


(C.OUTREF) , Y 




000655 




CLC 






000656 




RTS 






000657 










000658 




PAGE 






000659 










000660 


TSTOPEN 


LDA 


FCBADDRH 


TEST FOR SHARED ACCESS FILES WITH WRITE ENABLED 


000661 




STA 


FCBPTR+1 




000662 




LDA 


FCBANKNM 




000663 




STA 


SISFCBP 




0U0dd4 




LDA 


#0 




000665 




STA 


DATPTR+1 


MARK AS NO FREE FOUND. 


000666 




STA 


CNTENT 




000667 




STA 


TOTENT 


ALSO, INIT COUNT OF MATCHING FILES 


000668 


TSTOPNl 


STA 


FCBPTR 


SAVE NEW LOW ORDER ADDRESS 


000669 




LDX 


DATPTR+1 


FIND OUT IF A FREE SPOT HAS BEEN FOUND YET. 


000670 




BNE 


TST0PN2 


YES, DON'T INCREMENT REFNUM (CNTENT). 


000671 




INC 


CNTENT 


BUMP REFNUM 


000672 


TST0PN2 


LDY 


#FCBREFN 


TEST FOR IN USE FCB 


000673 




LDA 


(FCBPTR) , Y 


(NON ZERO) 


000674 




BNE 


CHKACTV 


THIS FCB IS IN USE, COPARE OWNERSHIP. 


000675 




TXA 




TEST AGAIN FOR FREE FCB 


0006 lb 




BNE 


TSNXFCB 


BRANCH IF A FREE SPOT HAS ALREADY BEEN FOUND . 


000611 




LDA 


FCBPTR 


TRANSFER CURRENT POINTER SO IT MAY BE 


000678 




STA 


DATPTR 


USED AS A FREE FCB BY OPEN. 


000679 




LDA 


FCBPTR+1 


HIGH BYTE ALWAYS NON ZERO. 


000680 




STA 


DATPTR+1 




000681 




JMP 


TSNXFCB 




000682 










000683 


CHKACTV 


EQU 




IF MATCHING FILE IS SWAPPED, IT DOESNT COUNT 


000684 




LDY 


#FCBSWAP 




000685 




LDA 


(FCBPTR) , Y 




000686 




BNE 


TSNXFCB 


BRANCH IF SWAPPED 


000687 




LDY 


#FCBENTN 


NOTE: THIS CODE DEPENDS ON THE 


000688 


WHOWNS 


LDA 


(FCBPTR) , Y 


DEFINED ORDER OF FCB AND DIRECTORY 


000689 




CMP 


D . DEV- 1 , Y 




000690 




BNE 


TSNXFCB 


BRANCH IF THIS ONE HAS A DIFFERENT OWNER. 


000691 




DEY 






000692 




BNE 


WHOWNS 




000693 




INC 


TOTENT 


REPORT THIS ONE AS A CO-OWNER. 


000694 




LDY 


#FCBATTR 


NOW FIND OUT IF THIS ONE WANTS TO WRITE. 


000695 




LDA 


(FCBPTR) , Y 




000696 




AND 


#WRITEN 


IF WRITE IS NOT ENABLED THEN CONTINUE. 


000697 




BEQ 


TSNXFCB 




000698 




SEC 




OTHERWISE, JUST SET THE CARRY TO SHOW 


000699 




RTS 




THAT THE FILE CAN'T BE SHARED. 


000700 










000701 


TSNXFCB 


LDA 


FCBPTR 


CALCULATE NEXT FCB AREA (+$20) 


000702 




CLC 






000703 




ADC 


#$20 




000704 




BCC 


TSTOPNl 


LOOP IF NO PAGE CROSS. 


000705 




LDX 


FCBPTR+1 




000706 




INC 


FCBPTR+1 




000707 




CPX 


FCBADDRH 


HAVE WE LOOKED AT BOTH PAGES? 


000708 




BEQ 


TSTOPNl 


NOPE, LOOK AT PAGE TWO. 


000709 




CLC 




INDICATE NO FILES THAT SHARE HAVE WRITE ENABLED 


000710 




RTS 






000711 


* 








000712 




CHN 


READ/WRITE, 4, 2 




000713 










000714 


************** 






000715 


* END OF APPLE 


/// SOS 


1.3 SOURCE CODE FILE: POSN.OPEN 


000716 


************************************************************************* 


000717 










000718 










End of 


File — Lines : 


718 Characters: 31954 
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FILE: "SOS. PRINT. TEXT" 





************************************************************************* 


000002 


* APPLE /// SOS 1.3 SOURCE 


CODE FILE: PRINT 


000003 








000004 


* ASSEMBLER: APPLE ] [ 650 


2 


ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 








000006 


SBTL 




'SOS 1.1 BLOCK FILE MANAGER' L 


000007 


* Ol-FEB-82 






A A A A A n 

000008 


REL 






000009 


IBUFSIZ 




1 


A A A A T A 

uOOulu 


SBUFSIZ 




40 


000011 


INCLUDE 




SOSORG,6,l,254 


000012 


ORG 




ORGBFM ; BITMAPS $B800-$BBFF 


000013 


ZZORG EQU 






000014 


REP 




60 


000015 


* (C) COPYRIGHT 


1981 BY APPLE COMPUTER INC. 


000016 


* ALL 


RIGHTS RESERVED 


000017 


REP 




60 


000018 


MSB 




OFF 


000019 


LST 




VSYM 


000020 


CHN 




EQUATES, 4, 1 


000021 


CHN 




ALLOC 


000022 


INCLUDE 




POSN/OPEN 


000023 


INCLUDE 




READ/WRITE, 2, , 4 


000024 


INCLUDE 




CLOSE/EOF, 2, ,4 


000025 


INCLUDE 




DESTROY, 2, , 4 


000026 


INCLUDE 




SWAPOUT/IN, 2, , 4 


000027 








000028 


************************************************************************* 


000029 


* END OF APPLE /// SOS 1. 


3 


SOURCE CODE FILE: PRINT 


000030 


************************************************************************* 


000031 









End of File — Lines: 31 Characters: 1032 
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FILE: "SOS. PUBLICRELEASE. TEXT" 



000001 ************************************************************************* 

000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: PUBLICRELEASE 

000004 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 
000005 

000006 :T 15,19,32 

000007 ::PR#1,L58 132N 

000008 : :SL4:DR1:ASM PRINT, BFM. OBJ, S6,D1 

000009 ::END 
000010 

000011 ****************************************************** 

000012 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: PU3LICRELEASE 
End. of File — Lines: 13 Characters: 531 
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FILE: "SOS. READ. WRITE. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: READ. WRITE 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



READS 



PAGE 

CLC 

LDY 

LDA 

AND 

BNE 

LDA 

SEC 

RTS 

LDY 
LDA 
STA 
ADC 

STA 
I NY 
LDA 
STA 
ADC 
STA 
INY 
LDA 
STA 
ADC 
STA 
LDY 
LDA 
CMP 
BCC 
BNE 
DEY 
CPY 
BNE 
EQU 
LDY 
LDA 
SBC 
STA 
INY 
LDA 
SBC 
STA 
ORA 
BNE 
LDA 
JSR 
LDA 
STA 
BNE 
CMP 
BNE 
STA 
JMP 
PAGE 

LDA 
STA 
LDA 
STA 
LDX 
JSR 
STA 
STY 
LDY 
LDA 
CMP 
BCC 
JMP 

JSR 
BCC 



#FCBATTR 
(FCBPTR) , Y 
#READEN 
READl 
#ACCSERR 



#FCBMARK 
(FCBPTR) , Y 
TPOSLL 
C. BYTES 

SCRTCH 

(FCBPTR) , Y 
TPOSLH 
C.BYTES+1 
SCRTCH+1 

(FCBPTR) , Y 
TPOSHI 
#0 

SCRTCH+2 
#FCBE0F+2 
SCRTCH-FCBEOF, Y 
(FCBPTR) , Y 
READ2 
ADJSTCNT 

#FCBE0F-1 

EOFTEST 
* 

IFCBEOF 
(FCBPTR) , Y 
TPOSLL 
C. BYTES 

(FCBPTR) , Y 
TPOSLH 
C.BYTES+1 
C. BYTES 
READ2 
#EOFERR 
SYSERR 
C. BYTES 
RWREQL 
READS 
C.BYTES+1 
READS 
RWREQH 
READONE 



C.BYTES+1 

RWREQH 

C.OUTBUF 

USRBUF 

#C.OUTBUF 

WRAPADJ 

USRBUF+1 

SISUSRBF 

#FCBSTYP 

(FCBPTR) , Y 

#TRETYP+1 

TREAD 

DREAD 

RDPOSN 
TREADO 



FIRST DETERMINE IF REQESTED 
READ IS LEGAL 

IS READ ENABLED? 
YES, CONTINUE... 
REPORT ILLEGAL ACCESS. 



GET CURRENT MARK INTO ' TPOS ' AND 
DETERMINE IF RESULTING POSITION 
EXCEEDS CURRENT END OF FILE. 



(THIS WAS DONE STRAIT-LINE SINCE 
WE'RE ADDING A TWO BYTE TO A THREE 
BYTE QUANTITY) 



; ADD IN REMAINING CARRY. 

; NOW TEST EOF AGAINST POSITION GENERATED 

; IS NEW POSITION > EOF? 
; NO, PROCEED. 

; YES, ADJUST 'C. BYTES' REQUEST 

HAVE WE COMPARED ALL TREE BYTES? 

NO, TEST NEXT LOWEST. 
ADJUST REQUEST TO READ UP TO (BUT 
NOT INCLUDING) END OF FILE. 
RESULT= (EOF-1) -POSITION 



IF BOTH BYTES ARE ZERO, REPORT EOF ERROR. 



BRANCH IF READ REQUEST DEFINITELY NON-ZERO. 
BRANCH IF READ REQUESTOZERO 
DO NOTHING. 



MOVE POINTER TO USERS BUFFER TO BFM 
Z-PAGE AREA. 
<SRS 82.162> 

ADJUST FOR BANK CROSSING. <SRS 82.162> 

SAVE VALID USER BUFFER ADDRESS (THAT WILL NOT CROSS BANKS) 
NOW FIND OUT IF IT'S A TREE READ OR OTHER. 



BRANCH IF A TREE FILE. 

OTHEWISE ASSUME IT'S A DIRECTORY. 



GET DATA POINTER SET UP. 
REPORT ANY ERRORS 
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000077 




JMP 


ERRFIXl 




000078 


TREAD 


JSR 


PREPRW 


TEST FOR NEWLINE, SETS UP FOR PARTIAL READ. 


000079 




JSR 


READPART 


MOVE CURRENT DATA BUFFER CONTENTS TO USER AREA 


000080 




BVS 


GORDDNE 


BRANCH IF REQUEST IS SATISFIED. 


000081 




BCS 


TREAD 


CARRY SET INDICATES NEWLINE IS SET. 


000082 




LDA 


RWREQH 


FIND OUT HOW MANY BLOCKS ARE TO BE READ 


000083 




LSR 


A 


IF LESS THAN TWO, THEN DO IT THE SLOW WAY. 


000084 




BEQ 


TREAD 




000085 




STA 


BULKCNT 


SAVE BULK BLOCK COUNT . 


000086 




LDY 


fFCBSTAT 


MAKE SURE CURRENT DATA AREA 


000087 




LDA 


(FCBPTR) , Y 


DOESN'T NEED TO BE WRITTEN BEFORE 


000088 




AND 


#DATMOD 


RESETTING POINTER TO READ DIRECTLY INTO 


000089 




BNE 


TREAD 


USER'S AREA. BRANCH IF DATA NEED TO BE WRITTEN 


000090 




STA 


lOACCESS 


TO FORCE FIRST CALL THRU ALL DEVICE HANDLER CHECKING 


000091 




LDA 


USRBUF 


MAKE THE DATA BUFFER THE USER'S SPACE. 


A ^ A 

000092 




STA 


DATPTR 




000093 




LDA 


USRBUF+1 




000094 




STA 


DATPTR+1 




000095 




LDA 


SISUSRBF 




000096 




STA 


SISDATP 




000097 










000098 




PAGE 






000099 


RDFAST 


JSR 


RDPOSN 


GET NEXT BLOCK DIRECTLY INTO USER SPACE . 


000100 




BCS 


ERRFIX 


BRANCH ON ANY ERROR. 


000101 


RDFASTO 


INC 


DATPTR+1 


BUMP ALL POINTERS BY 512 (ONE BLOCK) 


000102 




INC 


DATPTR+1 




000103 




DEC 


RWREQH 




000104 




DEC 


RWREQH 




000105 




INC 


TPOSLH 




000106 




INC 


TPOSLH 




000107 




BNE 


RDFAST 1 


BRANCH IF POSITION DOES NOT GET TO A 64K BOUNDARY. 


000108 




INC 


TPOSHI 


OTHERWISE, MUST CHECK FOR A 128K BOUNDARY 


000109 




LDA 


TPOSHI 


SET CARRY IF MOD 128K HAS BEEN REACHED 


000110 




EGR 


#1 




000111 




LSR 


A 




000112 


RDFAST 1 


DEC 


BULKCNT 


HAVE WE READ ALL WE CAN FAST? 


000113 




BNE 


RDFAST 2 


BRANCH IF MORE TO READ. 


000114 




JSR 


FXDATPTR 


GO FIX UP DATA POINTER TO SOS BUFFER. 


000115 




LDA 


RWREQL 


TEST FOR END OF READ. 


000116 




ORA 


RWREQH 


ARE BOTH ZERO? 


000117 




BEQ 


READONE 




000118 




BNE 


TREAD 


NO, READ LAST PARTIAL BLOCK. 


A A A 1 T A 

000119 










000120 


RDFAST 2 


BCS 


RDFAST 




000121 




LDA 


TPOSHI 


GET INDEX TO NEXT BLOCK ADDRESS 


000122 




LSR 


A 




000123 




LDA 


TPOSLH 




000124 




ROR 


A 




A A A T O IT 

000125 




TAY 




INDEX TO ADDRESS IS INT(POS/512) 


000126 




LDA 


(TINDX) , Y 


GET LOW ADDRESS 


000127 




STA 


BLOKNML 




A A A 1 on 

000128 




INC 


TINDX+1 




000129 




CMP 


(TINDX) , Y 


ARE BOTH HI AND LOW ADDRESS THE SAME? 


000130 




BNE 


REALRD 


NO, IT'S A REAL BLOCK ADDRESS. 


000131 




CMP 


#0 


ARE BOTH BYTES ZERO? 


000132 




BNE 


REALRD 


NOPE — MUST BE REAL DATA 


000133 




STA 


lOACCESS 


DON'T DO REPEATIO JUST AFTER SPARSE 


000134 




BEQ 


NOSTUF 


BRANCH ALWAYS (CARRY SET) 


000135 


REALRD 


LDA 


(TINDX) , Y 


GET HIGH ADDRESS BYTE 


000136 




CLC 






000137 


NOSTUF 


DEC 


TINDX+1 




000138 




BCS 


RDFAST 


BRANCH IF NO BLOCK TO READ 


000139 




STA 


BLOKNMH 




000140 




LDA 


lOACCESS 


HAS FIRST CALL GONE TO DEVICE YET? 


000141 




BEQ 


RDFAST 


NOPE, GO THRU NORMAL ROUTE... 


000142 




LDA 


DATPTR+1 


RESET HI BUFFER ADDRESS FOR DEVICE HANDLER 


000143 




STA 


DBUFPH 




000144 




JSR 


RE PEAT 10 




000145 




BCC 


RDFASTO 


BRANCH IF NO ERRORS. 


000146 




PAGE 






000147 


ERRFIX 


PHA 




SAVE ERROR CODE 


A n A 1 AO 

OU U i 4 




JSR 


FXDATPTR 


GO RESTORE DATA POINTERS, ETC. . . 


000149 




PLA 






000150 


ERRFIXl 


PHA 




SAVE ERROR CODE 


000151 




JSR 


READONE 


PASS BACK NUMBER OF BYTES ACTUALLY READ. 


000152 




PLA 






000153 




SEC 




REPORT ERROR 


000154 




RTS 






000155 


* 








000156 


READONE 


LDY 


#0 


RETURN TOTAL NUMBER OF BYTES ACTUALLY READ 


000157 




SEC 




THIS IS DERIVED FROM C . BYTES-RWREQ 
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000158 




LDA 


C . BYTES 




000159 




SBC 


RWREQL 




000160 




STA 


( C . OUTCNT ) , Y 




000161 




INY 






000162 




LDA 


C.BYTES+1 




000163 




SBC 


RWREQH 




000164 




STA 


(C . OUTCNT) , Y 




000165 




JMP 


RDPOSN 


LEAVE WITH VALID POSITION IN FOB. 


000166 










000167 


PREPRW 


SEC 




ADJUST POINTER TO USER'S BUFFER TO 


000168 




LDA 


USRBUF 


MAKE THE TRANSFER 


000169 




SBC 


TPOSLL 




000170 




STA 


USRBUF 




000171 




ECS 


PREPRWl 


BRANCH IF NO ADJUSTMENT TO HI ADDR. NEEDED. 


000172 




DEC 


USRBUF+1 


NOTE: SARA ALLOWS INDIRECT FROM $101 UP 


00017 J 


PREPRWl 


LDY 


#FCBATTR 


AS LONG AS ACTUAL RESULTING ADDRESS IS >=$200 


000174 




LDA 


(FCBPTR) , Y 


TEST FOR NEW LINE ENABLED 


000175 




AND 


INLINEN 


SET CARRY IF IT IS. 


000176 




CLC 






000177 




BEQ 


NONE WL IN 


BRANCH IF NEWLINE IS NOT ENABLED 


000178 




SEC 






000179 




LDY 


#FCBNEWL 




000180 




LDA 


(FCBPTR) , Y 


MOVE NEWLINE CHARACTER TO MORE 


000181 




STA 


NLCHAR 


ACCESSABLE SPOT . 


A A A 1 OA 


NONE WL IN 


LDY 


TPOSLL 


GET INDEX TO FIRST DATA 


000183 




LDA 


DATPTR 


RESET LOW ORDER OF POSPTR TO BEGINNING OF PAGE . 


000184 




STA 


POSPTR 




000185 




LDX 


RWREQL 


AND LASTLY GET LOW ORDER COUNT OF REQUESTED BYTES 


000186 




RTS 




RETURN STATUSES . . . 


000187 










A A A T O r> 

OOOloo 


READPART 


TXA 






000189 




BNE 


RDPARTO 


BRANCH IF REQUEST IS NOT A EVEN PAGES 


000190 




LDA 


RWREQH 


A CALL OF ZERO BYTES SHOULD NEVER GET HERE ! 


A A A 1 AT 

ouuiyi 




BEQ 


SETRDNE 


BRANCH IF NOTHIN' TO DO. 


000192 




DEC 


RWREQH 




000193 


RDPARTO 


DEX 






000194 


RDPART 


LDA 


(POSPTR) , Y 


MOVE DATA TO USER'S BUFFER 


000195 




STA 


(USRBUF) , Y 


ONE BYTE AT A TIME. 


000196 




TXA 




NOTE: THIS ROUTINE IS CODED TO BE 


000197 




BEQ 


ENDRQCHK 


FASTEST WHEN NEWLINE IS DISABLED. 


000198 


RD PARTI 


BCS 


TSTNEWL 


BRANCH IF NEW LINE NEEDS TO BE TESTED. 


000199 


RDPART2 


DEX 






A A A O A A 

000200 




INY 




PAGE CROSSED? 


000201 




BNE 


RDPART 


NO . MOVE NEXT BYTE . 


000202 




LDA 


POSPTR+1 


TEST FOR END OF BUFFER 


000203 




INC 


USRBUF+1 


BUT FIRST ADJUST USER BUFFER POINTER 


000204 




INC 


TPOSLH 


AND POSITION. 


A A A A IT 

000205 




BNE 


RDPART 3 




000206 




INC 


TPOSHI 




000207 


RDPART 3 


INC 


POSPTR+1 


AND SOS BUFFER HIGH ADDRESS . 


000208 




EOR 


DATPTR+1 


(CARRY HAS BEEN CLEVERLY UNDISTURBED.) 


000209 




BEQ 


RDPART 


BRANCH IF MORE TO READ IN BUFFER. 


000210 




CLV 




INDICATE NOT FINISHED. 


000211 




BVC 


RDPRTDNE 


BRANCH ALWAYS . 


000212 










000213 


ENDRQCHK 


LDA 


RWREQH 




000214 




BEQ 


RDRQDNE 


BRANCH IF REQEST SATISFIED. 


A A A T C 

000215 




INY 




DONE WITH THIS BLOCK OF DATA? 


000216 




BNE 


ENDRCHKl 


NO, ADJUST HIGH BYTE OF REQUEST. 


000217 




LDA 


POSPTR+1 


MAYBE- CHECK FOR END OF BLOCK BUFFER. 


A A A A T A 

000218 




EOR 


DATPTR+1 


(DON'T DISTURB CARRY) 


000219 




BNE 


ENDRCHK2 


BRANCH IF HI COUNT CAN BE DEALT WITH NEXT TIME. 


000220 


ENDRCHKl 


DEC 


RWREQH 




000221 


ENDRCHK2 


DEY 




RESTORE PROPER VALUE TO 'Y' 


000222 




JMP 


RDPART 1 




000223 










A A A A A A 

000224 


TSTNEWL 


LDA 


(POSPTR) , Y 


GET LAST BYTE TRANSFERED AGAIN. 


000225 




EOR 


NLCHAR 


HAVE WE MATCHED NEWLINE CHARACTER? 


000226 




BNE 


RDPART 2 


NO, READ NEXT. 


000227 


RDRQDNE 


INY 




ADJUST POSITION . 


000228 




BNE 


SETRDNE 




000229 




INC 


USRBUF+1 


BUMP POINTERS . 


000230 




INC 


TPOSLH 




000231 




BNE 


SETRDNE 




000232 




INC 


TPOSHI 




000233 


SETRDNE 


BIT 


SETVFLG 


(SET V FLAG) 


000234 


RDPRTDNE 


STY 


TPOSLL 


SAVE LOW POSITION 


000235 




BVS 


RDONEl 




000236 




INX 




LEAVE REQUEST AS +1 FOR NEXT CALL 


000237 


RDONEl 


STX 


RWREQL 


AND REMAINDER OF REQUEST COUNT. 


000238 




PHP 




SAVE STATUSES 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000305 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 



RDPART4 
SETVFLG 



CLC 
TYA 
ADC 
STA 
BCC 
INC 
PLP 
RTS 

LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
LDX 
JMP 



* READ DIRECTORY FILE . . 



JSR 
BCS 
JSR 
JSR 
BVC 
JSR 
BCC 
CMP 
SEC 
BNE 
JSR 
JSR 
LDY 
LDA 
PHA 
DEY 
LDA 
PHA 
LDA 
STA 
I NY 
STA 
TAY 
PLA 
STA 
PLA 
INY 
STA 
CLC 
RTS 

JMP 

PAGE 

CLC 

LDY 

LDA 
AND 
BNE 
LDA 
SEC 
RTS 

JSR 
BCS 

LDY 
LDA 
STA 
ADC 
STA 
INY 
LDA 
STA 
ADC 
STA 
INY 



DREDONE 
DREDERR 



ERRACCS 
WPERROR 
WRITEl 



USRBUF 
USRBUF 
RDPART4 
USRBUF+1 



DATPTR 

USRBUF 

DATPTR+1 

USRBUF+1 

SISDATP 

SISUSRBF 

IFCBBUFN 

(FCBPTR) , Y 

#DATPTR 

GETBUFADR 



RDPOSN 

ERRDRD 

PREPRW 

READPART 

DREAD 

READONE 

DREDONE 

#EOFERR 

DREDERR 
SVMARK 
ZIPDATA 
#FCBDATB+1 
(FCBPTR) , Y 



(FCBPTR) , Y 
#0 

(FCBPTR) , Y 
(FCBPTR) , Y 

(DATPTR) , Y 

(DATPTR) , Y 

ERRFIXl 



#FCBATTR 

(FCBPTR) , Y 
tWRITEN 
WRITEl 
#ACCSERR 



TSTWPROT 
WPERROR 

tFCBMARK 
(FCBPTR) , Y 
TPOSLL 
C. BYTES 
SCRTCH 

(FCBPTR) , Y 
TPOSLH 
C.BYTES+1 
SCRTCH+1 



ADJUST USER'S LOW BUFFER ADDRESS 



ADJUST HI ADDRESS AS NEEDED. 
RESTORE RETURN STATUSES 

(THIS BYTE <$60> IS USED TO SET V FLAG) 

PUT CURRENT USER BUFFER 
ADDRESS BACK TO NORMAL 

BANK PAIR BYTE SHOULD BE MOVED ALSO. 



RESTORE BUFFER ADDRESS 



END VIA CALL TO BOB'S CODE. 



PASS BACK ANY ERRORS 

PREPARE FOR TRANSFER. 

MOVE DATA TO USER'S BUFFER 

REPEAT UNTIL REQUEST IS SATISFIED. 

UPDATE FCB AS TO NEW POSITION. 

BRANCH IF ALL IS WELL. 

WAS LAST READ TO END OF FILE? 

ANTICIPATE SOME OTHER PROBLEM 

BRANCH IF NOT EOF ERROR. 

CLEAR OUT DATA BLOCK. 

PROVIDE DUMMY BACK POINTER FOR FUTURE RE-POSITION 
GET HI BYTE OF LAST BLOCK. 



AND LOW BYTE. 

NOW MARK CURRENT BLOCK AS IMPOSIBLE. 



NOW MOVE LAST BLOCK ADDRESS TO DATA BUFFER AS BACK POINTER. 



INDICATE NO ERROR 



REPORT HOW MUCH WE COULD TRANSFER BEFORE ERROR. 



FIRST DETERMINE IF REQESTED 
WRITE IS LEGAL 

IS WRITE ENABLED? 
YES, CONTINUE... 
REPORT ILLEGAL ACCESS. 



OTHERWISE, MAKE SURE DEVICE IS NOT WRITE PROTECTED. 
REPORT WRITE PROTECTED AND ABORT OPERATION. 

GET CURRENT MARK INTO ' TPOS ' AND 
DETERMINE IF RESULTING POSITION 
EXCEEDS CURRENT END OF FILE. 



(THIS WAS DONE STRAIGHT-LINE SINCE 
WE'RE ADDING A TWO BYTE TO A THREE 
BYTE QUANTITY) 
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000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 
000392 
000393 
000394 
000395 
000396 
000397 
000398 
000399 
000400 



WADJEOF 
WRTADJEOF 



WRITE2 



WRITE3 



WRI TERROR 
WRITERROl 



WRITERR02 



LDA 
STA 
ADC 
STA 
LDY 
LDA 
CMP 
BCC 
BNE 
D3Y 
CPY 
BNE 
CLC 
LDY 
LDA 
STA 
LDA 

STA 
INY 
CPY 
BNE 
LDA 
STA 
BNE 
CMP 
BNE 
STA 
JMP 

PAGE 

LDA 

STA 

LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
CMP 
BCC 
JMP 
JSR 
BCS 
LDY 
LDA 
AND 
BEQ 
LDY 
INY 
LSR 
BNE 
STY 
STA 
JSR 
BCS 
LDY 
LDA 
AND 
BEQ 
JSR 
BCC 
PHA 
LDY 
LDA 
STA 
INY 
CPY 
BNE 
LDY 
LDA 
STA 
INY 
CPY 
BNE 
PLA 
SEC 
RTS 



(FCBPTR) , Y 
TPOSHI 
#0 

SCRTCH+2 
#FCBE0F+2 
SCRTCH-FCBEOF, Y 

(FCBPTR) , Y 

WRITE2 
WADJEOF 

#FCBE0F-1 
WEOFTST 

#FCBE0F 
(FCBPTR) , Y 
OLDEOF-FCBEOF, Y 
SCRTCH-FCBEOF, Y 

(FCBPTR) , Y 

#FCBE0F+3 
WRTADJEOF 
C. BYTES 
RWREQL 

WRITES 

C.BYTES+1 

WRITES 

RWREQH 

WRITDONE 



C.BYTES+1 

RWREQH 

C . OUTBUF 

USRBUF 

C.OUTBUF+1 

USRBUF+1 

SISOUTBF 

SISUSRBF 

#FCBSTYP 

(FCBPTR) , Y 

#TRETYP+1 

TWRITE 

ERRACCS 

RDPOSN 

WRI TERROR 

#FCBSTAT 

(FCBPTR) , Y 

#DATALC+IDXALC+TOPALC 

TREWRTl 

#0 

A 

TWRTALC 

REQL 

REQH 

TSFRBLK 

WRI TERROR 

#FCBSTAT 

( FCBPTR), Y 

#TOPALC 

TSTSAPWR 

TOPDOWN 

DBLOKALC 

#FCBEOF 

OLDEOF-FCBEOF, Y 
( FCBPTR), Y 

#FCBE0F+3 
WRITERROl 
IFCBMARK 

OLDMARK-FCBMARK, Y 
(FCBPTR) , Y 

#FCBMARK+3 
WRITERR02 



ADD IN REMAINING CARRY. 

NOW TEST EOF AGAINST POSITION GENERATED 

IS NEW POSITION > EOF? 

NO, PROCEED. 

YES, ADJUST END OF FILE 

HAVE WE COMPARED ALL TREE BYTES? 

NO, TEST NEXT LOWEST. 

ADJUST REQUEST TO WRITE UP TO (BUT 

NOT INCLUDING) END OF FILE. 

SAVE OLD EOF IN CASE OF LATER ERROR 

RESULT=EOF 



BRANCH IF WRITE REQUEST DEFINITELY NON-ZERO. 
BRANCH IF WRITE REQUESTOZERO 
DO NOTHING. 



MOVE POINTER TO USERS BUFFER TO BFM 
Z-PAGE AREA. 



(SO IT MAY BE ADJUSTED WITHOUT LOOSING 
ORIGINAL ADDRESS . ) 



NOW FIND OUT IF IT'S A TREE WRITE OR OTHER. 



BRANCH IF A TREE FILE. 

OTHEWISE RETURN AN ACCESS ERROR! 

READ BLOCK WE'RE 



FIND OUT IF ENOUGH DISK SPACE IS AVAILABLE FOR 
INDEXES AND DATA BLOCK 



PASS BACK ANY ERRORS. 

NOW GET MORE SPECIFIC. 

ARE WE LACKING A TREE TOP? 

NO, TEST FOR LACK OF SAPLING LEVEL INDEX. 
GO ALLOCATE TREE TOP AND ADJUST FILE TYPE. 
CONTINUE WITH ALLOCATION OF DATA BLOCK. 
SAVE ERROR 



RESTORE OLD EOF UPON ERR 



; AND RESTORE OLD MARK! 



; ERROR RETURN 
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000401 
000402 
000403 
000404 
000405 
000406 
000407 
000408 
000409 
000410 
000411 
000412 
000413 
000414 
000415 
000416 
000417 
000418 
000419 
000420 
000421 
000422 
000423 
000424 
000425 
000426 
000427 
000428 
000429 
000430 
000431 
000432 
000433 
000434 
000435 
000436 
000437 
000438 
000439 
000440 
000441 
000442 
000443 
000444 
000445 
000446 
000447 
000448 
000449 
000450 
000451 
000452 
000453 
000454 
000455 
000456 
000457 
000458 
000459 
000460 
000461 
000462 
000463 
000464 
000465 
000466 
000467 
000468 
000469 
000470 
000471 
000472 
000473 
000474 
000475 
000476 
000477 
000478 
000479 
000480 
000481 



WRPART2 



WRPART3 



ENDWQCHK 



ENDWCHKl 
ENDWCHK2 



WRTRQDNE 



PAGE 
LDA 
AND 
BEQ 

JSR 
BCS 
JSR 
BCS 
LDA 
LSR 
LDA 
ROR 
TAY 
INC 
LDA 
TAX 
STA 
DEC 
LDA 
STA 
LDY 
STA 
INY 
TXA 
STA 
LDY 
LDA 
ORA 
AND 
STA 
LDX 
JSR 
JSR 
JSR 
BVC 
JMP 

PAGE 

TXA 

BNE 

LDA 

BEQ 

DEC 
DEX 
LDA 
STA 
TXA 
BEQ 
INY 
BNE 
LDA 
INC 
INC 
BNE 
INC 
INC 
EOR 
BEQ 
CLV 
BVC 

LDA 
BEQ 
INY 
BNE 
LDA 
EOR 
BNE 
DEC 
DEY 
JMP 

INY 
BNE 
INC 

INC 
BNE 
INC 



(FCBPTR) , Y 

#IDXALC 

DBLOKALC 

SAPDOWN 
WRI TERROR 
ALCWBLK 
WRI TERROR 
TPOSHI 
A 

TPOSLH 
A 

TINDX+1 
SCRTCH+1 

(TINDX) , Y 
TINDX+1 
SCRTCH 

(TINDX) , Y 
#FCBDATB 

(FCBPTR) , Y 



A PIGGY-BACK BACKWARD BRANCH 



GET STATUS BYTE AGAIN. 

DO WE NEED A SAPLING LEVEL INDEX BLOCK? 

NO, ASSUME IT'S JUST A DATA BLOCK NEEDED. 

GO ALLOCATE AN INDEX BLOCK AND UPDATE TREE TOP. 

RETURN ANY ERRORS. 

GO ALLOCATE FOR DATA BLOCK. 

CALCULATE POSITION WITHIN INDEX BLOCK. 



NOW PUT BLOCK ADDRESS INTO INDEX BLOCK 
HIGH BYTE FIRST. 



; (RESTORE POINTER TO LOWER PAGE OF INDEX BLOCK) 
; GET LOW BLOCK ADDRESS 
; NOW STORE LOW ADDRESS. 

; ALSO UPDATE FILE CONTROL BLOCK TO INDICATE 
; THAT THIS BLOCK IS ALLOCATED. 



GET HIGH ADDRESS AGAIN. 



(FCBPTR) , Y 
IFCBSTAT 
(FCBPTR) , Y 
#IDXMOD 

#$FF-DATALC-IDXALC-TOPALC 
(FCBPTR) , Y 



CLEAR ALLOCATION REQUIREMENT BITS. 



#USRBUF 

WRAPADJ 

PREPRW 

WRTPART 

TWRITEGO 

RDPOSN 



WRPART 
RWREQH 
SETWRDNE 

RWREQH 

(USRBUF) , Y 
(POSPTR) , Y 

ENDWQCHK 

WRPART 

POSPTR+1 

USRBUF+1 

TPOSLH 

WRPART3 

TPOSHI 

POSPTR+1 

DATPTR+1 

WRPART 

WRPRTDNE 

RWREQH 
WRTRQDNE 

ENDWCHKl 
POSPTR+1 

DATPTR+1 

ENDWCHK2 
RWREQH 

WRPART 2 



SETWRDNE 
USRBUF+1 

TPOSLH 

SETWRDNE 

TPOSHI 



; LOCATE POINTER TO ADJUST <SRS 82.162> 
; ADJUST FOR BANK CROSSING <SRS 82.162> 
; WRITE ON 



UPDATE FCB WITH NEW POSITION. 



BRANCH IF REQUEST IS NOT A EVEN PAGES 

A CALL OF ZERO BYTES SHOULD NEVER GET HERE! 

DO NOTHING! 



MOVE DATA FROM USER'S BUFFER 
ONE BYTE AT A TIME. 



PAGE CROSSED? 

NO. MOVE NEXT BYTE. 

TEST FOR END OF BUFFER 

BUT FIRST ADJUST USER BUFFER POINTER 

AND POSITION. 



AND SOS BUFFER HIGH ADDRESS. 
(CARRY HAS BEEN CLEVERLY UNDISTURBED.) 
BRANCH IF MORE TO WRITE TO BUFFER. 

INDICATE NOT FINISHED. 
BRANCH ALWAYS. 



BRANCH IF REQEST SATISFIED. 

ARE WE DONE WITH THIS BLOCK OF DATA? 

BRANCH IF NOT. 

WHILE THIS IS REDUNDANT, IT'S NECESSARY FOR 
PROPER ADJUSTMENT OF REQUEST COUNT. 
(NOT FINISHED- OK TO ADJUST HI BYTE.) 
RESET MODIFIED Y 



AND POSITION. 
BUMP POINTERS. 
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000482 


SETWRDNE 


BIT 


SETVFLG 


(SET V FLAG) 


000483 


WRPRTDNE 


STY 


TPOSLL 


SAVE LOW POSITION 


000484 




STX 


RWREQL 


AND REMAINDER OF REQUEST COUNT. 


000485 




PHP 




SAVE STATUSES 


000486 




LDY 


#FCBSTAT 




000487 




LDA 


(FCBPTR) , Y 




000488 




ORA 


#DATMOD+USEMOD 




000489 




STA 


(FCBPTR) , Y 




000490 




CLC 




ADJUST USER'S LOW BUFFER ADDRESS 


000491 




LDA 


TPOSLL 




000492 




ADC 


USRBUF 




000493 




STA 


USRBUF 




000494 




BCC 


WRPART4 




000495 




INC 


USRBUF+1 


ADJUST HI ADDRESS AS NEEDED. 


000496 


WRPART4 


JSR 


FCBUSED 


SET DIRECTORY FLUSH BIT 


000497 




PLP 




RESTORE RETURN STATUSES 


000498 




RTS 






000499 




PAGE 






000500 


TOPDOWN 


JSR 


SWAPDOWN 


FIRST MAKE CURRENT 1ST BLOCK AN ENTRY IN NEW TOP. 


000501 




BCS 


TPDWNERR 


RETURN ANY ERRORS 


000502 




LDY 


#FCBSTYP 


FIND OUT IF STORAGE TYPE HAS BEEN CHANGED TO 'TREE'. 


000503 




LDA 


(FCBPTR) , Y 


(IF NOT, ASSUME IT WAS ORIGINALLY A SEED AND 


000504 




CMP 


#TRETYP 


BOTH LEVELS NEED TO BE BUILT . 


000505 




BEQ 


TOPDWNl 


OTHERWISE, ONLY AN INDEX NEED BE ALLOCATED) 


000506 




JSR 


SWAPDOWN 


MAKE PREVIOUS SWAP A SAP LEVEL INDEX BLOCK. 


000507 




BCS 


TPDWNERR 




000508 


TOPDWNl 


JSR 


ALCWBLK 


GET ANOTHER BLOCK ADDRESS FOR THE SAP LEVEL INDEX. 


000509 




BCS 


TPDWNERR 




000510 




LDA 


TPOSHI 


CALCULATE POSITION OF NEW INDEX BLOCK 


000511 




LSR 


A 


IN THE TOP OF THE TREE . 


000512 




TAY 






000513 




LDA 


SCRTCH 


GET ADDRESS OF NEWLY ALOCATED INDEX BLOCK AGAIN 


000514 




TAX 






000515 




STA 


(TINDX) , Y 




000516 




INC 


TINDX+1 




000517 




LDA 


SCRTCH+1 




000518 




STA 


(TINDX) , Y 


SAVE HI ADDRESS 


000519 




DEC 


TINDX+1 




000520 




LDY 


#FCBIDXB+1 


MAKE NEWLY ALLOCATED BLOCK THE CURRENT INDEX BLOCK. 


A A A C O T 

000521 




STA 


(FCBPTR) , Y 




000522 




TXA 






000523 




DEY 






000524 




STA 


(FCBPTR) , Y 




000525 




JSR 


WFCBFST 


SAVE NEW TOP OF TREE . 


000526 




BCS 


TPDWNERR 




000527 




JMP 


ZTMPIDX 


END BY RE-CLEARING CURRENT (NEW) INDEX BLOCK. 


000528 










000529 


SAPDOWN 


LDY 


#FCBSTYP 


FIND OUT IF WE'RE DEALING WITH A TREE 


000530 




LDA 


(FCBPTR) , Y 


OR A SIMPLE SEED. 


000531 




CMP 


#SEEDTYP 


IF SEED THEN AN ADJUSTMENT TO FILE TYPE IS NECESSARY 


000532 




BEQ 


SAPDWNl 


BRANCH IF SEED. 


000533 




JSR 


RFCBFST 


OTHERWISE READ IN TOP OF TREE. 


A A A C A 

000534 




BCC 


TOPDWNl 


BRANCH IF NO ERROR. 


000535 


TPDWNERR 


RTS 




RETURN ERRORS 


000536 










000537 




PAGE 






000538 


SAPDWNl 


EQU 




MAKE CURRENT SEED INTO A SAPLING 


000539 










000540 


SWAP DOWN 


JSR 


ALCWBLK 


ALLOCATE A BLOCK BEFORE SWAP 


000541 




BCS 


SWAPERR 


RETURN ERRORS IMMEDIATELY . 


000542 




LDY 


#FCBFRST 


GET PREVIOUS FIRST BLOCK 


000543 




LDA 


(FCBPTR) , Y 


ADDRESS INTO INDEX BLOCK. 


000544 




PHA 




SAVE TEMPORARLY WHILE SWAPPING IN NEW TOP INDEX 


000545 




LDA 


SCRTCH 


GET NEW BLOCK ADDRESS (LOW) 


000546 




TAX 






000547 




STA 


(FCBPTR) , Y 




000548 




INY 






000549 




LDA 


(FCBPTR) , Y 




000550 




PHA 






000551 




LDA 


SCRTCH+1 


AND HIGH ADDRESS TOO. 


000552 




STA 


(FCBPTR) , Y 




000553 




LDY 


#FCBIDXB+1 


MAKE NEW TOP ALSO THE CURRENT INDEX IN MEMORY. 


000554 




STA 


(FCBPTR) , Y 




000555 




TXA 




GET LOW ADDRESS AGAIN 


000556 




DEY 






000557 




STA 


(FCBPTR) , Y 




000558 




LDY 


#0 


MAKE PREVIOUS THE FIRST ENTRY IN SUB INDEX 


000559 




INC 


TINDX+1 




000560 




PLA 






000561 




STA 


(TINDX) , Y 




000562 




DEC 


TINDX+1 
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000563 




PLA 










000564 




STA 


(TINDX) , Y 








000565 




JSR 


WFCBFST 






SAVE NEW FILE TOP . 


000566 




BCS 


SWAPERR 








000567 




LDY 


#FCBSTYP 






NOW ADJUST STORAGE TYPE 


000568 




LDA 


#1 






BY ADDING 1 (THUS SEED BECOMES SAPLING BECOMES TREE 


000569 




ADC 


(FCBPTR) , Y 








000570 




STA 


(FCBPTR) , Y 








000571 




LDY 


# FOB STAT 








000572 




LDA 


(FCBPTR) , Y 






MARK STORAGE TYPE MODIFIED. 


000573 




ORA 


#STPMOD 








000574 




STA 


(FCBPTR) , Y 








000575 




CLC 








RETURN ' NO ERROR ' STATUS . 


000576 


SWAPERR 


RTS 










000577 














000578 




PAGE 










000579 


ALCWBLK 


JSR 


ALCIBLK 








000580 




BCS 


ALUS ERR 








000581 




LDY 


IFCBUSE 








000582 




LDA 


(FCBPTR) , Y 






BUMP CURRENT USAGE COUNT BY 1 . 


000583 




CLC 










000584 




ADC 


#1 








A A A C O IT 

000585 




STA 


(FCBPTR) , Y 








000586 




BCC 


INCUSGl 








000587 




INY 










000588 




LDA 


(FCBPTR) , Y 








000589 




ADC 


#0 








000590 




STA 


(FCBPTR) , Y 








000591 


INCUSGl 


LDY 


# FOBS TAT 






MARK USAGE AS MODIFIED. 


000592 




LDA 


(FCBPTR) , Y 








000593 




ORA 


#USEMOD 








000594 




STA 


(FCBPTR) , Y 








A A A C A IT 

000595 




CLC 








INDICATE NO ERROR 


000596 


ALUS ERR 


RTS 








ALL DONE 


000597 














000598 


TSTWPROT 


LDY 


IFCBSTAT 






CHECK FOR A 'NEVER BEEN MODIFIED' CONDITION 


000599 




LDA 


(FCBPTR) , Y 






GET STATUS BYTE 


000600 




AND 


#USEMOD+DATMOD+IDXMOD+EOFMOD 


000601 




CLC 








ANTICIPATE WRITE OK 


000602 




BNE 


ALUSERR 






ORDINARY RTS 


000603 




LDY 


#FCBDEVN 






GET FILE'S DEVICE NUMBER 


000604 




LDA 


(FCBPTR) , Y 








000605 




STA 


DEVNUM 






GET CURRENT STATUS OF BLOCK DEVICE 


000606 


TWRPROTl 


LDA 


ISTATCMD 








000607 




STA 


DHPCMD 








000608 




LDA 


fSTATSUB 






STORE SUB COMMAND OF STATUS CALL 


000609 




STA 


DSTATREQ 








000610 




LDA 


#>TWRCODE 








000611 




STA 


DSTATBFL 






FETCH RETURN CODE IN SCRATCH AREA 


000612 




LDA 


#<TWRCODE 








000613 




STA 


DSTATBFH 








000614 




LDA 


#0 






MAKE SURE REGULAR RAM IS SELECTED (NO BANKS) 


000615 




STA 


SISDSTAT 








000616 




STA 


SERR 






CLEAR GLOBAL ERROR FLAG 


000617 




LDA 


DEVNUM 






SET UP LAST PARM 


000618 




STA 


UNITNUM 






FOR DEVICE CALL 


000619 




JSR 


DMGR 






MAKE THE EXTERNAL CALL 


000620 




BCS 


WPROTRET 






RETURN ANY SPECIFIC ERRORS 


000621 




LDA 


TWRCODE 






GET STATUS BYTE 


000622 




LSR 


A 






SHIFT WRITE PROTECT STATE INTO CARRY 


000623 




LSR 


A 








000624 




LDA 


#XNOWRITE 






ANTICIPATE WRITE PROTECTED. 


000625 




RTS 








CARRY IS INDETERMINATE 


000626 


WPROTRET 


EQU 


* 








000627 




CMP 


#XDISKSW 






IF EXPLICITLY DISK SWITCH 


000628 




BNE 


WPROTl 






BRANCH IF XNODRIVE OR XNOWRITE 


000629 




STA 


DSWGLOB 






IF DISKSW, FLAG UNTIL ENTIRE OPERATION IS COMPLETE 


000630 




CLC 










000631 




RTS 








DISKSWITCH DOESNT SET CARRY 


000632 


WPROTl 


SEC 










000633 




RTS 










000634 


DSWGLOB 


DS 


1 






DISK SWITCH GLOBAL 


000635 


TWRCODE 


DS 


1 






A RARE EMBEDDED TEMP STORE 


000636 


* 












000637 




PAGE 










000638 


* 












000639 


* MEMORY 


WRAP-AROUND ' 


ADJUST ROUTINE. 


THIS ROUTINE ADJUSTS 


000640 


* ADDRESSES THAT CROSS 


BANK PAIR BOUNDARIES. ON 


ENTRY, X CONTAINS 


000641 


* THE OFFSET OF THE ZERO PAGE EXTENDED POINTER 


TO BE ADJUSTED. 


000642 


* ON EXIT 


THE POINTER 


WILL HAVE BEEN 


ADJUSTED, 


IF NECESSARY, 


000643 


* AND THE 


ASSOCIATED X- 


-BYTE WILL ALSO 


HAVE BEEN 


ADJUSTED. 



• Apple /// Computer » SOS 1.3 Source Code Listing » 181 of 255 




000644 
000645 
000546 
000647 
000648 
000649 
000650 
000651 
000652 
000653 
000654 
000655 
000656 
000657 
000658 
000659 
000660 
000661 
000662 
000663 
000664 
000665 
000666 
000667 
000668 
000669 



ONLY ADDRESSES IN THE RANGE $8200-$BE00 WILL BE ADJUSTED. 

Y CONTAINS UPDATED X-BYTE. 



UPON EXIT, A CONTAINS HIGH BYTE OF ADDRESS S 
THIS ROUTINE LEAVES X UNCHANGED. 



LDA 

LDY 
BPL 
CMP 
BCC 
CPY 
BCS 
AND 
STA 
INC 
INY 

RTS 

CHN 



1,X 

SISTER+1,X 

WRAPDNE 

#$82 

WRAPDNE 

#$8F 

WRAPDNE 

#$7F 

1,X 

SISTER+1,X 



CLOSE/EOF, 4, 2 



GET HIGH ADDRESS BYTE <SRS 82.162> 

CHECK X-BYTE <SRS 82.162> 

NOT AN EXTENDED ADDRESS. <SRS 82.162> 

DOES IT NEED UPDATING? <SRS 82.162> 

NO <SRS 82.162> 

SPECIAL BANK? <SRS 82.162> 

NO <SRS 82.162> 

ADJUST THE ADDRESS <SRS 82.162> 
UPDATE <SRS 82.162> 
INCREMENT X-BYTE <SRS 82.162> 

UPDATE Y ALSO <SRS 82.162> 

; RETURN VALID HIGH ADDRESS AND BANK BYTE. 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: READ. WRITE 

************************************************************************* 



End of File 



Lines: 669 Characters: 27951 
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FILE: "SOS. SCMGR. SRC. TEXT" 



000001 

000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SCMGR. SRC 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



SBTL 
REL 

INCLUDE 

ORG 

EQU 

MSB 
REP 

COPYRIGHT (C 



"SOS 1.1 SYSTEM CALL MANAGER" 

SOSORG, 6,1,254 
ORGSCMGR 



REP 



OFF 
60 

APPLE COMPUTER INC. 
ALL RIGHTS RESERVED 
60 



1980 



SYSTEM CALL MANAGER (VERSION =1.10 ) 
(DATE = 8/04/81) 

THE SYSTEM CALL MANAGER: 

(1) RETRIEVE THE SYSCALL #, 

(2) DETERMINE THE LOCATION OF THE SYSTEM CALL PARMS AND 
MOVE THEM TO THE SOS ZPAGE, 

TRANSFER CONTROL TO THE APPROPRIATE INTERFACE MANAGER, 
(FILE, DEVICE, UTILITY, MEMORY) 



(3) 



REP 



EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 

EXTRN 

EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 

EXTRN 
EXTRN 

EXTRN 

EXTRN 

EXTRN 

PAGE 

REP 



60 



FMGR 
DMGR 
UMGR 
MMGR 
DBUGBRK 

SYSERR 

SERR 

BADSCNUM 
BADC ZPAGE 
BADXBYTE 
BADSCPCNT 
BADSCBNDS 

S ZPAGE 
SXPAGE 

C ZPAGE 
CXPAGE 
C SPACE 

60 



* SYSTEM CALL PARAMETER DEFINITION TABLES 
* 

* EACH ENTRY IS FOUR BYTES LONG. THE FIRST BYTE CONTAINS THE 

* NUMBER OF PARMS IN THE CALL. THE REMAINING SIX NIBBLES, EACH 

* DEFINE A PARAMETER IN THE CALL. THE FIRST BIT OF THE 

* NIBBLE DEFINES WHETHER THE PARM IS INPUT (0) OR OUTPUT (1) . 

* THE NEXT BIT DEFINES WHETHER THE PARM IS BY VALUE (0) 

* OR BY REFERENCE (1) . THE FINAL TWO BITS SPECIFY THE 

* PARM LENGTH IN BYTES (E.G. 0=LENGTH OF 1, 3=LENGTH OF 4 BYTES) 



REP 



60 



FILE SYSTEM CALL DEFINITIONS 



FSC.CNT 
FSC . TBL 



EQU 


$13 






EQU 








DFB 


$3,$5D,$00,$00 


SCNUM=$CO 


- CREATE 


DEB 


$1, $50, $00, $00 


" =$C1 


- DESTROY 


DFB 


$2, $55, $00, $00 


" =$C2 


- RENAME 


DFB 


$3,$5D,$00,$00 


" =$C3 


- SET . FILE . INFO 


DFB 


$3,$5D,$00,$00 


" =$C4 


- GET. FILE. INFO 


DFB 


$4, $55, $99, $00 


" =$C5 


- VOLUME 


DFB 


$1, $50, $00, $00 


" =$C6 


- SET. PREFIX 


DFB 


$2, $50, $00, $00 


" =$C7 


- GET. PREFIX 
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n n n n "7 ^ 

uuuu / / 




DFB 


^;4, PDO, -pUU / 9UU 


" — $C8 - 


OPEN 


UUUU to 




DFB 


^ J, yiUU, yiUU 


" ^$C9 - 


NEW . LINE 


r\ r\ rx r\ n Ci 

UUUU /y 




DFB 


A <bAC d'TA tfrAA 

^)4, 9uo, 9iy/ 50U 


" =$CA - 


READ 


UUUUoU 




DFB 


60 6AC <?1A A A 

5 J, ?Uo, 9-LU, 5UU 


" =$CB - 


WRITE 


UUUUol 




DFB 


6t 6AA A A A A 

91, 9OU, $UU, 5UU 


" =$cc - 


CLOSE 


A A A A O O 

U0uUo2 




DFB 


d* T d* A A A A d* A A 

51, 5UU, 500, 500 


" =$CD - 


FLUSH 


A A A A O O 

UUUUo J 




DFB 


to 6 A A 1? A 6AA 


" -$CE - 


SET .MARK 


A A A A O A 




DFB 


<^0 <^AT) t^AA t'AA 

^Z, yiUB, ^puU, ^>UU 


" =$CF - 


GET .MARK 


A A A A O C 

UUUUoo 




DFB 


<!:*0 <!:*AA trOA d?AA 

9J>, 9UU, -pjij, 9UU 


" — $D0 - 


SET . EOF 


A A A A O 

UUUUoD 




DFB 


<!rO <!rAl~) (^^AA d?AA 

i?Z , UB, -p U U / 9UU 


" — $D1 - 


GET . EOF 


A A A A O ^ 

UUUUo / 




DFB 


^ t*AA trAA drAA 

^1, yiUU, ^puU, pUU 


" — $D2 - 


SET . LEVEL 


A A A A O O 

UUUUoo 




DFB 


6t ton tAA 6AA 

91, 9oU, 5UU, 5UU 


" =$D3 - 


GET . LEVEL 


A A A A O A 

uuuuoy 




PAGE 








A A A A A A 

uuuuyu 












A A A A AT 

uuuuyi 


* DEVICE 


SYSTEM CALL 


DEFINITIONS 






A A A A AO 

uuuuyz 












A A A A A O 

uuuuy J 


DSC . CNT 


EQU 


5 






A A A A A yl 

uuuuy4 


DSC . TBL 


EQU 








A A A A A R 

UU UU 30 




DFB 


Cc: CPiC. Oil tOA 
90, -pUO, 9-L-L / -pyU 


bLJNUJM— 90U - 


"DT? 7\ Pi 

JJ . KhjAU 


A A A A A 

uuuuyb 




DFB 


t/l tAC til tAA 

vi4, ^UOf ^iL, pUU 


" —$81 - 


D . WRITE 


A A A A A"7 

uuuuy / 




DFB 


to tAA tCA tAA 

9 J, 9UU, 9C1U, 5OU 


" =$82 - 


D . STATUS 


A A A A A O 

uuuuyb 




DFB 


to tAA tCA tAA 

5 J, ?UU, ^oO, 5OU 


" =$83 - 


D . CONTROL 


A A A A A A 

uuuuyy 




DFB 


to tCO tAA tAA 

$z, $30, 5UU, 5UU 


" =$84 - 


GET . DEV . NUM 


A A A 1 A A 
UUUIUU 




DFB 


t/1 tAC tr^A tAA 

$4, $Uo, 5DU, 5UU 


" =$85 - 


D . INFO 


A A A 1 A 1 
UUUlUi 












A A A 1 AO 

UU U i Uz 


* UTILITY 


SYSTEM CALL 


DEFINITIONS 






A A A 1 AO 

UUUiU J 












A A A 1 A yl 

UUU1U4 


use . CNT 


EQU 


5 






A A A T AC 

UUUlUo 


use . TBL 


EQU 








A A A T A 

UUUlUo 




DFB 


tT tAA tAA tAA 

$1, 9UU, 5UU, 5UU 


SCNUM=$60 - 


SET . FENCE 


A A A T A"7 
UUUlU / 




DFB 


tT tOA tAA tAA 

$1, $oU, 5UU, 5OU 


" =$61 - 


GET . FENCE 


A A A T AO 

UUUlUo 




DFB 


tT tCA tAA tAA 

91, 9bU, $UU, 5UU 


" =$62 - 


SET . TIME 


A A A 1 A A 

uuuiuy 




DFB 


t1 tCA tAA tAA 

$1, $bU, 5UU, 5UU 


" =$63 - 


GET . T IME 


A A A 1 T A 

UUUllU 




DFB 


CO CAD cnn cnn 


" =$64 — 


T/~\V rn T /^'L' 
JOibi ll^K. 


000111 




DFB 


CA tAA tAA tAA 

$U, $UU, 5UU, 5UU 


" =$65 - 


COLD . START 


A A A 1 T O 

UUUllz 












A A A 1 T O 


* MEMORY 


SYSTEM CALL 


DEFINITIONS 






A A A T T A 
UUU114 












000115 


MSC . CNT 


EQU 


5 






A A A T T r 

UUUIId 


MSC . TBL 


EQU 


* 






A A A T T 

UUUll / 




DFB 


$4, $11, $08, $00 


SCNUM=$40 — 


REQUEST. SEG 


A A A T •^ n 

UOOllo 




DFB 


$6, $00, $99, $98 


" =$41 - 


FIND. SEG 


A A A 1 T A 

uuuiiy 




DFB 


$3, $00, $90, $00 


" ^$42 - 


CHANGE . SEG 


A A A T OA 

UUUlzU 




DFB 


$5, $09, $99, $80 


" =$43 - 


GET . SEG . INFO 


A A A 1 O 1 

UU Ulz i 




DFB 


$2, $18, $00, $00 


" —$44 - 


GET . SEG . NUM 


A A A T O O 

UU Ulzz 




DFB 


$1, $00, $00, $00 


" =$45 - 


RELEASE . SEG 


000123 


* 










A A A T O ^ 

UUUlz4 


* DEBUG SYSTEM CALL DEFINITION 






A nm o c 
UUUlzo 


* 










A A A T O 
UUUlZD 


DBUG 


EQU 


$FE 






A A A 1 O "7 

UUUlz / 




PAGE 








A A A 1 O O 

UUUlzo 




REP 


60 






A A A 1 O O 

uu uiz y 


* 










A A A 1 OA 

UUUloU 


* DATA DECLARATIONS 








A A A 1 O 1 

UUUl jl 


* 










A A A T O O 

UUUl 




REP 


60 






A A A T O O 

UOOliJ 


Z.REG 


EQU 


$FFDO 






A A A T OA 

UUUlo4 


SP.SAVE 


EQU 


$01FF 






A A A T O C 

UUUl oo 


Z.SAVE 


EQU 


$01FD 






A A A 1 Of 

UUUl Jo 


B.SAVE 


EQU 


$01FC 






A A A 1 0-7 

UUUU / 


* 










A A A 1 00 

UUUUo 


ADR. LOW 


EQU 


$2000 


LOW ADDRESS (BOUNDS CHECKING) 


A A A 1 OA 

uuuijy 


ADR. HIGH 


EQU 


$B800 


HIGH ADDRESS 


A A A T /I A 

UUU14U 


ADR. MID 


EQU 


$A000 


MIDDLE ADDRESS 


A A A T /II 

UUU14 i 


* 










A A A T yi 

UUU14ii 


* SCMGR'S VARIABLES 








A A A T AO 

UUU14 J 


* 










A A A T A A 

UUU144 


SCM.VARS 


EQU 


$E0 






A A A T AC 

000145 


SCNUM 


EQU 


SCM.VARS+0 


SYSTEM CALL 


NUMBER 


OU U i 4 D 


SCRNUM 


EQU 


SCM.VARS +0 


SYSTEM CALL 


REQUEST NUMBER 


000147 


SCPTR 


EQU 


SCM.VARS+1 


&2 SYSTEM CALL POINTER 


000148 


MOVE.VARS 


EQU 


SCPTR+2 


! ! (LOOKOUT 


! ! 


000149 


* 










000150 


* 










000151 


F.TPARMX 


EQU 


$A0 


FILE SYS CALL FARM START LOC 


000152 


D.TPARMX 


EQU 


$C0 


DEVICE SYS CALL FARM START LOC 


000153 


U.TPARMX 


EQU 


$C0 


UTILITY SYS 


CALL PARM START LOC 


000154 


M.TPARMX 


EQU 


$60 


MEMORY SYS CALL PARM START LOC 


000155 


* 










000156 


* MOVE.PARM 


'S VARIABLES 








000157 


* 
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000158 


TPARMX EQU 


MOVE . VARS+0 


000159 


DFN . PTR EQU 


MOVE . VARS+1 


000160 


DFN.PTRX EQU 


MOVE.VARS+3 


000161 


SCPTRX EQU 


MOVE . VARS+4 


000162 


RGHT.NIB EQU 


MOVE.VARS+5 


000163 


SCT . DFN EQU 


MOVE . VARS+6 


000164 


SCT . DCNT EQU 


MOVE . VARS + 7 


000165 


PARM.CNT EQU 


MOVE . VARS+B 


000166 




PAGE 




000167 




REP 


60 


000168 


* 






000169 


* 


SYSTEM CALL MANAGER 




000170 


* 






000171 




REP 


60 


000172 


* 






000173 


SCMGR EQU 


* 


000174 




LDA 


KSZPAGE 


000175 




STA 


Z .REG 


000176 


* 






000177 


* 


SET SYSTEM X BYTES TO ABSOLUTE ADDRESS MODE 


000178 


* 






000179 




LDA 


#0 


000180 




STA 


SXPAGE+SCPTR+1 


000181 




STA 


SERR 


000182 


* 






000183 


* 


CALLER'S Z REG MUST 


3E $1A ! ! 


000184 


* 


(B REG NOT CHECKED) 




000185 


* 






000186 




LDA 


Z . SAVE 


000187 




CMP 


#<CZPAGE 


000188 




BEQ 


SCM005 


000189 




LDA 


#>BADCZPAGE 


000190 




JSR 


SYSERR 


000191 


* 






000192 




RETRIEVE CALLER'S PC 


ON HIS STACK 


000193 


* 






000194 


SCM005 LDX 


SP . SAVE 


000195 




LDA 


CSPAGE+6,X 


000196 




STA 


SCPTR+1 


000197 




LDA 


CSPAGE+5 , X 


000198 




STA 


SCPTR 


000199 




BNE 


SCMOlO 


000200 




DEC 


SCPTR+1 


000201 


SCMOlO DEC 


SCPTR 


000202 


* 






000203 


* 


ADVANCE CALLER'S PC 


ON HIS STACK. 


000204 


* 






000205 




CLC 




000/06 




LDA 


CSPAGE+5, X 


000207 




ADC 


#2 


000208 




STA 


CSPAGE+5, X 


000209 




BCC 


SCM02a 


000210 




INC 


CSPAGE+6,X 


000211 








000212 


* 


RETRIEVE SYSTEM CALL 


NUMBER 


000213 


* 






000214 


SCM020 LDY 


#0 


000215 




LDA 


(SCPTR) , Y 


000216 




CMP 


#DBUG 


000217 




BNE 


SCM025 


000218 




JSR 


DBUGBRK 


000219 


SCM025 STA 


SCNUM 


000220 


* 






000221 


* 


RETRIEVE SYSTEM CALL 


PARAMETER ADDRESS 


000222 


* 






000223 




INY 




000224 




LDX 


#>SCPTR 


000225 




JSR 


POINTER 


000226 




BCC 


SCM030 


000227 




RTS 




000228 








000229 


* 


CASE INTERFACE CODE 


OF SYSTEM CALL NUMBER 


000230 


* 


(INTERFACE CODE STRIPPED, LEAVING REQUEST 


000231 


* 






000232 


SCM030 LDA 


#$20 


000233 




BIT 


SCNUM 


000234 




BPL 


SCM05a 


000235 




LDA 


SCNUM 


000236 




AND 


#$3F 


000237 




STA 


SCRNUM 


000238 




BVC 


SCM040 



; TARGET ADR OF SYS CALL PARMS 
;S2 



SET Z REG TO SOS ZPAGE 



; AND INIT SYSTEM ERR CODE 



; EXIT TO DISPATCHER 



; AND POINT IT TO SYS CALL NUM 



DEBUG SYSTEM CALL 



ERROR EXIT 
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000239 












000240 


LDA 






#F. TPARMX 


; "IIXXXXXX" - JMP TO FILE MANAGER. 


000241 


STA 






TPARMX 




000242 


LDX 






#>FSC . TBL 




000243 


LDY 






#<FSC.TBL 




000244 


LDA 






#FSC .CNT 




000245 


JSR 






MOVE . PARMS 




000246 


BCS 






SCM. ERRl 


; ERR EXIT 


000247 


JMP 






FMGR 




000248 












000249 


SCM040 LDA 






#D. TPARMX 


; "lOXXXXXX" - JMP TO DEVICE MANAGER. 


000250 


STA 






TPARMX 




000251 


LDX 






#>DSC . TBL 




000252 


LDY 






#<DSC . TBL 




000253 


LDA 






#DSC .CNT 




000254 


JSR 






MOVE . PARMS 




000255 


BCS 






SCM. ERRl 


; ERR EXIT 


000256 


JMP 






DMGR 




000257 












000258 


SCM050 BVC 






SCM . ERR 




000259 


PHP 










000260 


LDA 






SCNUM 




000261 


AND 






#$1F 




000262 


STA 






SCRNUM 




0002 63 


PLP 










000264 


BEQ 






SCM060 




000265 












000266 


LDA 






#U . TPARMX 


; "OllXXXXX" - JMP TO UTILITY MANAGER. 


000267 


STA 






TPARMX 




000268 


LDX 






#>USC . TBL 




000269 


LDY 






#<USC . TBL 




000270 


LDA 






#USC . CNT 




000271 


JSR 






MOVE . PARMS 




000272 


BCS 






SCM . ERRl 


; ERR EXIT 


000273 


JMP 






UMGR 




000274 












000275 


SCM060 LDA 






#M. TPARMX 


; "OlOXXXXX" - JMP TO MEMORY MANAGER. 


000276 


STA 






TPARMX 




000277 


LDX 






#>MSC . TBL 




000278 


LDY 






#<MSC . TBL 




000279 


LDA 






#MSC . CNT 




000280 


JSR 






MOVE . PARMS 




A A A O O T 

000281 


BCS 






SCM . ERRl 


; ERR EXIT 


000282 


JMP 






MMGR 




000283 












000284 


SCM . ERR LDA 






#>BADSCNUM 


; ERROR, INVALID SYSTEM CALL NUMBER. 


000285 


SCM.ERRl JSR 






SYSERR 


EXIT TO DISPATCHER ON ERROR 


000286 


PAGE 










000287 


REP 






60 




A A A o n 

000288 


* 










000289 


* MOVE.PARMS 










A A A O A A 

0002 90 


* 










000291 


* MOVES THE CALLER'S 


PARAMETERS TO THE OPERATING 


SYSTEM'S 


000292 


* ZERO PAGE, ACCORDING 


TO 


THE SPECIFICATIONS CONTAINED 


000293 


* IN THE SPECIFIED SYS 


CALL DFN TABLE. 




000294 


* 










000295 


* INPUT: (A) = MAX # 


ENTRIES IN PARM DFN TABLE 




000296 


* (X) = PARM 


DFN TBL ADR (LO) 




000297 


(Y) = 






(HI) 




000298 


* SCPTR = ADR OF CALLER'S SYS CALL FARMS 




000299 


* ERROR: CARRY SET (SYSERR) 




000300 


* 










000301 


REP 






60 




000302 


* 










000303 


MOVE . FARMS EQU 






* 




000304 


STX 






DFN . PTR 


; SAVE ADR OF DEFINITION TABLE 


A A A O A IT 

000305 


STY 






DFN.PTR+1 




000306 


* 










000307 


* IF REQ NUM > MAX REQ 


NUM (A REG) 




000308 


* 










000309 


CMP 






SCRNUM 




000310 


BCS 






MOVEOlO 




000311 












000312 


* THEN ERR (BAD SYS 


CALL 


NUM) 




000313 


* 










000314 


LDA 






#>BADSCNUM 




000315 


BCC 






SYSERRl 


; BRANCH ALWAYS TAKEN 


000316 


* 










000317 


* CALCULATE DEFINITION 


TABLE INDEX 




000318 


* AND INIT SYS CALL 


PARM 


INDEX 




000319 


* 
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000320 


MOVEOlO LDA 


SCRNUM 


000321 




ASL 


A 


A A O O O 




ASL 


A 


A A A O O 

000323 




STA 


DFN . PTRX 


A A A O O A 

000324 




LDA 


#0 


A A A O A IT 

000325 




STA 


SXPAGE+DFN . PTR+1 


A A A O 

000326 




STA 


SCPTRX 


000327 


* 






000328 


* 


IF SCPTR(SCPTRX)<>DFN.PTR(DFN.PTRX) THEN 


000329 


* 






000330 




TAY 




A A A O O 1 

000331 




LDA 


(SCPTR) , Y 


A A A O O O 

000332 




LDY 


DFN. PTRX 


A A A O O 

000333 




CMP 


(DFN. PTR) , Y 


000334 




BEQ 


INITLOOPCT 


A A A O O IT 

000335 


* 






A A A t) 

000336 




LDA 


#>BADSCPCNT 


A A A t) O ^ 

000337 


SYSERRl JSR 


SYSERR 


A A A tJ t) n 

00033o 








A A A t) O A 

000339 


* 


INIT LOOP CTR(PARM.CNT) 


TO # OF PARMS IN 


A A A O /I A 

000340 


* 






A A A O /IT 

000341 


INITLOOPCT STA 


PARM.CNT 


A A A O /I O 

000342 


* 






A A A O /I 

000343 


* 


ADVANCE PTRS 




000344 


* 






000345 


* 






000346 




INC 


SCPTRX 


000347 




INC 


DFN . PTRX 


000348 


* 






000349 


* 


MOVE REQ CODE TO SYS ZPAGE PARM LIST 


000350 


* 


AND ADVANCE SYS ZPAGE PTR (X=TPARMX) 


A A A O C T 

000351 


* 






000352 




LDA 


SCRNUM 


A A A O C O 

000353 




LDX 


TPARMX 


A A A t) r A 

000354 




STA 


0,X 


000355 




I NX 




000356 








000357 




INIT NIBBLE FLAG TO "RIGHT" NIBBLE 


A A A o c n 

000358 


* 


ZERO STATE="LEFT" NIBBLE 


A A A O C A 

000359 


* 






A A A O ^ A 

000360 




LDA 


#$FF 


000361 




STA 


RGHT.NIB 


A A A t) ^ A 

000362 




REP 


60 


000363 


* 






000364 


* 


BEGIN PARAMETER PROCESSING LOOP 


000365 








000366 


PARMLOOP LDA 


RGHT.NIB 


A A A O ^ T 

000367 




EOR 


#$FF 


A A A o ^ n 

000368 




STA 


RGHT.NIB 


A A A O ^ A 

000369 


* 






000370 


* 


IF "LEFT" NIBBLE 




A n A o "7 1 

UU U J / i 








000372 




BNE 


ELSE.RNIB 


000373 








000374 




THEN FETCH SYS CALL PARM DFN 


000375 




AND # OF BYTES IN PARM 


WITHIN IT 


A A A O ""J z' 

000376 


* 






000377 




LDY 


DFN . PTRX 


A A A O T n 

000378 




LDA 


(DFN. PTR) , Y 


A A A O T A 

000379 




STA 


SCT . DFN 


A A A t) O A 

000380 




AND 


#$30 


000381 




LSR 


A 


000382 




LSR 


A 


000383 




LSR 


A 


000384 




LSR 


A 


A A A O A IT 

000385 




STA 


SCT.DCNT 


A A A O A 

000386 




BPL 


VALUE 


A A A O A ^ 

000387 


* 






A A A O A n 

000388 


* 


ELSE FETCH SYS CALL PARM DFN 


A A A A A 


* 


AND # OF BYTES IN PARM 


WITHIN IT 


000390 




FROM "RIGHT" NIBBLE OF 


DFN BYTE 


000391 


* 






000392 


ELSE.RNIB LDA 


SCT . DFN 


000393 




TAY 




000394 




AND 


#$03 


000395 




STA 


SCT . DCNT 


000396 




TYA 




000397 




ASL 


A 


000398 




ASL 


A 


000399 




ASL 


A 


000400 




ASL 


A 



; AND X BYTE 



; ERR, CALLER'S PARM COUNT INVALID 
; EXIT 



; COMPLEMENT NIBBLE FLAG 



/BRANCH ALWAYS 
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000401 


STA 




SCT . DFN 


000402 


INC 




DFN . PTRX 


000403 


REP 




60 


000404 








000405 


* PARAMETER PASSED 


BY 


VALUE 


000406 








000407 


REP 




60 


000408 


VALUE BIT 




SCT . DFN 


000409 


BVS 




REFERENCE 


000410 


EMI 




VAL . OUT 


000411 








000412 


* INPUT BY VALUE 






000413 








000414 


LDY 




SCPTRX 


000415 


VAL . IN LDA 




(SCPTR) , Y 


000416 


STA 




0,X 


000417 


I NY 






000418 


I NX 






000419 


DEC 




SCT . DCNT 


000420 


BPL 




VAL. IN 


000421 


STY 




SCPTRX 


000422 


JMP 




ENDLOOPl 


000423 








000424 


* OUTPUT BY VALUE 






000425 








000426 


VAL . OUT CLC 






000427 


LDA 




SCPTR 


000428 


ADC 




SCPTRX 


000429 


STA 




0, X 


000430 


INX 






000431 


LDA 




SCPTR+1 


000432 


ADC 




#0 


000433 


STA 




0/ X 


000434 








000435 


CLC 






000436 


LDA 




SCPTRX 


000437 


ADC 




SCT . DCNT 


000438 


STA 




SCPTRX 


000439 








000440 


LDA 




SXPAGE+SCPTR+1 


000441 


STA 




SXPAGE,X 


000442 


JMP 




ENDL00P2 


000443 


REP 




60 


000444 








000445 


* PARAMETER PASSED 


BY 


REFERENCE 


000446 








000447 


REP 




60 


000448 


REFERENCE BPL 




REFl 


000449 








000450 


* "LIST" PTR FOUND, 


CHK IF "LENGTH" PARM = 


000451 








000452 


LDY 




SCPTRX 


000453 


I NY 






000454 


I NY 






000455 


LDA 




(SCPTR) , Y 


000456 


BEQ 




ENDLOOPO 


000457 


* 






000458 


REFl LDY 




SCPTRX 


000459 


JSR 




POINTER 


000460 


BCS 




PARM. ERR 


000461 








000462 


* ADVANCE SYSTEM ZPAGE 


POINTER (X) , CALLER' 


000463 


* DECREMENT PARM CTR AND CHECK IF LAST PARM 


000464 








000465 


ENDLOOPO INX 






000466 


INC 




SCPTRX 


000467 


ENDL00P2 INX 






000468 


INC 




SCPTRX 


000469 


ENDLOOPl DEC 




PARM.CNT 


000470 


BEQ 




PARM. EXIT 


000471 


BMI 




PARM. EXIT 


000472 


JMP 




PARMLOOP 


000473 








000474 


* END OF PARAMETER 


PROCESSING LOOP 


000475 


* 






000476 


REP 




60 


000477 


* 






000478 


PARM. EXIT CLC 






000479 


PARM. ERR RTS 






000480 


PAGE 




000481 


REP 




60 



ADVANCE SYS CALL DFN PTR 



MOVE BYTES TO ZPAGE 



BUILD PTR TO PARM ON ZPAGE 



ADVANCE INDEX TO NEXT PARM 



INCLUDE X BYTE 



; "LENGTH" PARM=0, SKIP "LIST" PARM 
; MOVE PTR TO ZPAGE 
; ERROR EXIT 



S PARM PTR. 



/SPECIAL FOR 'COLD START' 



NO ERRORS 

RETURN TO SYS CALL MANAGER 
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000482 
000483 
000484 
000485 
000485 
000487 
000488 
000489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000508 
000509 
000510 
000511 
000512 
000513 
000514 
000515 
000516 
000517 
000518 
000519 
000520 
000521 
000522 
000523 
000524 
000525 
000526 
000527 
000528 
000529 
000530 
000531 
000532 
000533 
000534 
000535 
000536 
000537 
000538 
000539 
000540 
000541 
000542 
000543 
000544 
000545 
000546 
000547 
000548 
000549 
000550 
000551 
000552 
000553 
000554 
000555 
000556 
000557 
000558 
000559 
000560 
000561 
000562 



SRC ADR 
DEST ADR 



SCPTR 
X REG 



(SCPTR) , Y 
(X) 



UNCHANGED 



(SCPTR) , Y+1 



ERROR: 



A,Y REGS FLATTENED 



CARRY SET (SYSERR) 



* POINTER. RETRIEVES THE CALLER'S POINTER PARAMETER IN 

* (SCPTR), Y, PERFORMS ADDRESS COMPENSATION, IF NECESSARY 

* AND PLACES THE RESULTING POINTER AT X, X+1 AND SXPAGE+1,X. 



REP 

EQU 
LDA 
PHA 
INY 
LDA 
BEQ 

STA 
PLA 
STA 
LDY 
BEQ 

PLA 
TAY 

LDA 
STA 
LDA 
STA 
LDA 
TAY 



60 



(SCPTR) , Y 



(SCPTR) , Y 
INDIRECT 

1,X 

0,X 
#0 

PTROlO 



CZPAGE, Y 

0, X 

CZPAGE+1, Y 

1, X 

CXPAGE+1, Y 



DIRECT POINTER 



INDIRECT POINTER 



PTROlO LDA 1,X 

* 

* CHECK BOUNDS OF CALLER'S POINTER PARAMETER 



PTR.X8F 



* X BYTE = 
PTR.X808E 



* X BYTE = 
PTR.XO 



CPY 
BCC 
BEQ 
BCS 
CMP 
BCC 
CMP 
BCS 
BCC 

.8E 

CPY 
BCC 
CMP 
BEQ 

CMP 
BNE 
INY 
LDA 
BNE 



CPY 

BNE 
CMP 
BCC 
CMP 
BCS 
CMP 
BCS 

PHA 

LDA 
AND 
BNE 



#$8F 

PTR.X808E 

PTR.X8F 

PTR.ERRl 

#<ADR.LOW 

PTR.ERR 

#<ADR.HIGH 

PTR.ERR 

PTR.EXIT 



#$80 

PTR.XO 

#0 

PTR.ERR 

#$FF 

PATCH 

#$7F 

PTR.EXIT 



#0 

PTR.ERRl 

KADR.LOW 

PTR.ERR 

#<ADR.HIGH 

PTR.ERR 

#<ADR.MID 

PTR.EXIT 



B.SAVE 

#$0F 
PTR030 



; ERROR, INVALID X BYTE 



; $8N:FFXX — > $8N+1:7FXX 
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000563 
000564 
000565 
000566 
000567 
000568 
000569 
000570 
000571 
000572 
000573 
000574 
000575 
000576 
000577 
000578 
000579 
000580 
000581 
000582 
000583 
000584 
000585 
000586 
000587 
000588 
000589 
000590 
000591 
000592 
000593 
000594 
000595 
000596 
000597 
000598 
000599 
000600 
000601 
000602 
000603 
000604 
000605 
000606 
000607 



PTR030 



PTR.ERR 
PTR.ERRl 



ZZEND 
ZZLEN 



PLA 
LDY 
BNE 

ORA 
TAY 
PLA 
SEC 
SBC 
BNE 
DEY 
LDA 

CPY 
BCC 

CMP 
BNE 
CPY 
BEQ 
DEY 
LDA 

STA 
TYA 

STA 
CLC 
RTS 



LDA 
JSR 
LDA 
JSR 

LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



#$8F 

PTR.EXIT 



#$80 



#$20 
PATCH 

#$80 

#$80 

PTR.EXIT 

#1 

PTR.EXIT 

#$80 

PTR.ERR 

#$81 

1,X 

SXPAGE+1,X 



#>BADSCBNDS 
SYSERR 
#>BADXBYTE 
SYSERR 

ON 

ZZEND-ZZORG 

ZZLEN-LENSCMGR 

2,"S0S0RG 



$B=0:2000. .9FFF — > $8F:2000.9FFF 
$B<>0:2000. .9FFF — > $8B:0000. .7FFF 

$8B:00XX — > $8B-1:80XX 

KLUDGE FOR BFM: $8N:01XX — > $8N-1:81XX 
ERROR, $80:01XX NOT ALLOWED 



FILE IS INCORRECT FOR SCMGR" 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SCMGR. SRC 

************************************************************************* 



End of File 



Lines: 607 Characters: 15630 
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FILE: "SOS. SOS. BLOAD. TEXT" 



000001 ************************************************************************* 

000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: SOS. BLOAD 

000004 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

000005 

000006 MON I 

000007 CALL-151 

000008 1600:0 

000009 160K1600.93FEM 

000010 3D0G 

000011 MON I 

000012 BLOAD SOSLDR. ABS, A$2000 

000013 BLOAD INIT . ABS, A$2AF8 

000014 BLOAD SYSGLOB . ABS, A$2CF8 

000015 BLOAD BFM.INIT2.ABS,A$2E00 

000016 BLOAD BFM.ABS,A$3200 

000017 BLOAD OPRMSG.ABS,A$5466 

000018 BLOAD IPL.ABS,A$55C0 

000019 BLOAD UMGR.ABS,A$5A8B 

000020 BLOAD DISK3.ABS,A$5E99 

000021 BLOAD SYSERR. ABS, A$6404 

000022 BLOAD DEVMGR.ABS, A$64D9 

000023 BLOAD SCMGR . ABS, A$665E 

000024 BLOAD FMGR.ABS, A$68F4 

000025 BLOAD CFMGR.ABS,A$6955 

000026 BLOAD BUFMGR.ABS,A$6B52 

000027 BLOAD MEMMGR.ABS,A$6E6E 

000028 NOMON I 
000029 

000030 + + 

000031 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOS. BLOAD 

000032 **************************************************** 

000033 



End of File — Lines: 33 Characters: 864 
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FILE: "SOS. SOS. LINK. TEXT" 



000001 ************************************************************************* 

000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: SOS. LINK 

000004 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

000005 

000006 SOSLDR.OBJ 

000007 INIT.OBJ 

000008 SYSGLOB.OBJ 

000009 BFM.INIT2.0BJ 

000010 BFM.OBJ 

000011 OPRMSG.OBJ 

000012 IPL.OBJ 

000013 UMGR.OBJ 

000014 DISK3.0BJ 

000015 SYSERR.OBJ 

000016 SCMGR.OBJ 

000017 FMGR.OBJ 

000018 CFMGR.OBJ 

000019 DEVMGR.OBJ 

000020 BUFMGR.OBJ 

000021 MEMMGR.OBJ 

000022 END 
000023 

000024 ************************************************************************* 

000025 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOS. LINK 

000026 ************************************************************************* 



End of File — Lines: 26 Characters: 607 
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FILE: "SOS. SOS. RENAME. TEXT' 



000001 ************************************************************************* 

000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: SOS. RENAME 

000004 * ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

000005 

000006 MON I 

000007 RENAME SOSLDR.OBJ.ABS, SOSLDR.ABS 

000008 RENAME INIT.OBJ.ABS, INIT.ABS 

000009 RENAME SYSGLOB.OBJ.ABS,SYSGLOB.ABS 

000010 RENAME OPRMSG.OBJ.ABS,OPRMSG.ABS 

000011 RENAME BFM.OBJ.ABS,BFM.ABS 

000012 RENAME BFM. INIT2 . OB J. ABS, BFM. INIT2 . ABS 

000013 RENAME IPL . OB J. ABS, IPL . ABS 

000014 RENAME UMGR. OBJ. ABS, UMGR. ABS 

000015 RENAME DISKS . OBJ .ABS, DISK3 .ABS 

000016 RENAME SYSERR.OBJ.ABS,SYSERR.ABS 

000017 RENAME SCMGR.OBJ.ABS, SCMGR.ABS 

000018 RENAME FMGR.OBJ.ABS,FMGR.ABS 

000019 RENAME CFMGR.OBJ.ABS,CFMGR.ABS 

000020 RENAME DEVMGR.OBJ.ABS, DEVMGR.ABS 

000021 RENAME BUFMGR. OB J. ABS, BUFMGR. ABS 

000022 RENAME MEMMGR.OBJ.ABS,MEMMGR.ABS 

000023 NOMON I 
000024 

000025 ************************************************************************* 

000026 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOS. RENAME 

000027 ************************************************************************* 



End of File — Lines: 27 Characters: 961 
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FILE: "SOS.SOSLDR.A.SRC.TEXT" 



000001 

000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.A.SRC 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



PAGE 
REP 



110 



$1E00 + + 

! SOSLDR K-ENTRY 
$1FFF + + 

BANK 
$2000 + + 



SOS MEMORY MAP 
(128K APPLE ///) 



SOSLDR 
& 

INIT MODULE 



$9FFF 



$A000 



FIGURE 1. SOS KERNEL FILE READ INTO $2 : lEOO . . 9FFF BY SOS BOOT IN BLOCKS 0,1. 
SOS LOADER BEGINS EXECUTION AT THIS POINT. 



110 



REP 
PAGE 

REP 110 



$1FFF +- 



SOS MEMORY MAP 
(128K APPLE ///) 



$2000 



SOSLDR 
S 

INIT MODULE 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 



$9FFF 



* FIGURE 2. 




INTERPRETER 
FILE 



SOS INTERPRETER FILE READ INTO BANKS AND 1 
USING EXTENDED ADDRESSING (X=$80) . 



110 



SOSLDR.B.SRC 



END OF APPLE /// SOS 1.3 SOURCi CODh flLH: SOSLDR.A.SRC 



End of File 



Lines: 123 Characters: 4326 
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FILE: "SOS. SOSLDR.B. SRC. TEXT" 



000001 

000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000015 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.B. SRC 

* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 

.PAGE 

******************************************************************************* 



$1E00 + 

! SOSLDR 
$1FFF + 

BANK 

$2000 + 



SOSLDR 
& 

IN IT MODULE 



SOS MEMORY MAP 
(128K APPLE ///) 



BANK 2 



FILE BUFFER 



DRIVER 
FILE 



$9FFF 




INTERPRETER 
CODE 



FIGURE 3. SOS DRIVER FILE READ INTO BANKS AND 1 
USING EXTENDED ADDRESSING (X=$80) . 



******************************************************************************* 



$9FFF 



FIGURE 4. SOS LOADER FINISHED. JUMP TO 

FIRST BYTE OF INTERPRETER'S CODE. 



(SYSTEM DEVICE TABLE) 
DIB ADR BANK UNIT 
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000077 
000078 
000079 
000080 
000081 

000082 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.B.SRC 

000083 
000084 
000085 



********************************************* 



End of File 



Lines: 85 Characters: 2974 
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FILE: "SOS. SOSLDR.C. SRC. TEXT" 



000001 

000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.C. SRC 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



PAGE 
REP 



* SUBROUTINES: 
* 

* SOSLDR 

* SOSLDRl 



(1) 



MOVE 

INIT.KRNL 

WELCOME 

ADVANCE 

REVERSE 

DADVANCE 

DADD 
FLAGS 

NEXT. DIB 
GETMEM 

NEWDST 



100 



"MAIN PROGRAM" 

"PROCESSES KERNEL/INTERPRETER/DRIVER FILES" 
"MOVES SRC.P. .SRC.P+CNT-1 TO DST . P . . DST . P+CNT-1" 
"CALLS KERNEL INITIALIZATION MODULES" 

"PRINTS WELCOME MESSAGE ("APPLE ///", VERSION, DATE/TIME, COPYRIGHT) 

"ADVANCES WRK.PTR TO NEXT INTERP/KERNEL MODULE. INITS SRC.P, DST.P, CNT FOR MOVE" 

"REVERSES TITLE/CODE/RELOC COUNTS TO ALLOW DRIVER FILE TO BE PROCESSED FM BACK TO FRONT" 

"ADVANCES WORK.P TO NEXT DRIVER MODULE. INITS SRC.P, CNT, REL.P FOR MOVE" 

"ADVANCES WORK.P TO NEXT DRIVER FIELD" 

"PROCESSES "INACTIVE" S "PAGE ALIGN" FLAGS IN DRIVER MODULE'S DIBS" 

"ADVANCES TO NEXT DIB IN DRIVER MODULE" 

"COMPUTES DESTINATION BASE ADDRESS FOR NEXT DRIVER MODULE" 

"COMPUTES DESTINATION BASE ADDRESS, ALIGNING ON PAGE BOUNDARY IF REQUESTED" 



BUILD. DSEG "COMPUTES # OF PAGES TO ADD TO DRIVER SEGMENT AND WHETHER TO BEGIN A NEW SEGMENT" 

RELOC "RELOCATES DRIVER MODULE'S CODE FIELD USING RELOCATION FIELD" 

(1) LINK "LINKS FIRST DIB TO PREVIOUS DRIVER'S LAST "ACTIVE" DIB, AND ADDS SDT ENTRY" 

SET. DRIVES "INITIALIZES DIB LINKS IN ICERNEL'S FLOPPY DRIVER" 

(1) ALLOC. DEV "ADDS A NEW ENTRY TO THE DEVICE MANAGER'S SYSTEM DEVICE TABLE (SDT)" 

ALLOC. SEG "ALLOCATES SEGMENTS FOR KERNEL, INTERPRETER AND SYSTEM WORK AREA" 

RSEG "CALLS MEMORY MANAGER TO ALLOCATE SEGMENTS FOR THE KERNEL AND INTERPRTER" 

ALLOC. DSEG "ALLOCATES SEGMENTS FOR DRIVER MODULES" 

ERROR "DISPLAYS ERROR MESSAGE, SOUNDS BELL AND LOOPS UNTIL CONTROL/RESET PRESSED" 



* (1) - INDICATES THAT THE ROUTINE PERFORMS BANK SWITCHING AND MUST ( ! ) BE OUTSIDE THE 32K RAM BANKS. 

REP 
PAGE 



REP 

SOS. KERNEL FILE FORMAT 



100 
100 



(8) LABEL 

= "SOS KRNL" 

(2) HEADER COUNT 
HEADER 

= # OF FLOPPY DRIVES 
= INTERPRETER PATHNAME 
= DRIVER PATHNAME 

(4) ADR S COUNT 
SOSLDR CODE 

(4) ADR S COUNT 
GLOBALS 



CONTAINED IN THIS LISTING 
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000077 




000078 




000079 




000080 




000081 




000082 




000083 




000084 




000085 




000086 




000087 




000088 




000089 




000090 




000091 




000092 




000093 




000094 




000095 




000096 




000097 




000098 




000099 




000100 




000101 




000102 




000103 




000104 




000105 




000106 




000107 




000108 




000109 




000110 




000111 




000112 




000113 




000114 




000115 




000116 




000117 




000118 




000119 




000120 




000121 




000122 




000123 




000124 




000125 




000126 




000127 




000128 




000129 




000130 




000131 




000132 




000133 




000134 




000135 




000136 




000137 




000138 




000139 




000140 




000141 




000142 




000143 




000144 




000145 




000146 




000147 




000148 




000149 




000150 




000151 




000152 


* 


000153 


* 


000154 




000155 




000156 




000157 


* 



(4) ADR S COUNT 
KERNEL CODE 

REP 100 

SOS.INTERP FILE FORMAT 

(8) LABEL 

= "SOS NTRP" 

(2) HEADER COUNT 

(4) ADR S COUNT 

INTERPRETER CODE 

REP 100 

SOS. DRIVER FILE FORMAT 

(8) LABEL 

= "SOS DRVR" 

(2) HEADER COUNT 

= # OF FLOPPY DRIVES 
= CHARACTER SET TABLE 
= JCEYBOARD TABLE 



(2) DM #N TITLE COUNT 

TITLE FIELD 

(2) DM #N CODE COUNT 

CODE FIELD 

(2) DM #N RELOC COUNT 

RELOC FIELD 



DRIVER MODULE #N 



RELOCATION FIELD FORMAT 

CONSISTS OF A LIST OF 2 BYTE POINTERS 
WHICH POINT TO THE LOW BYTE OF A TWO 
BYTE QUANTITY TO BE RELOCATED. 



$FFFF = THE END 

REP 

PAGE 

REP 



100 
100 



EXTERNAL DECLARATIONS 



REP 

EXTRN 

EXTRN 

EXTRN 

EXTRN 

EXTRN 

EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 

EXTRN 
EXTRN 
EXTRN 
EXTRN 



100 

SYSBANK 

MEMSIZE 

SCRNMODE 

SOSVER 

SOSVERL 

INT.INIT 

EVQ. INIT 

DMGR. INIT 

MAX . DNUM 

SDT.SIZE 

SDT.DIBL 

SDT . DIBH 

SDT.ADRL 

SDT.ADRH 

SDT. BANK 

SDT. UNIT 

BLKD.SIZE 

BLKDLST 

CFMGR. INIT 

MMGR.INIT 

BMGR.INIT 

BFM.INIT 

BFM.INIT2 

CLK.INIT 

DIBl 
DIB2 
DIB3 
DIB4 



(IPL) INTERRUPT INIT 
(IPL) EVENT QUEUE INIT 
DEVICE MANAGER INIT 



CHAR FILE MANAGER INIT 
MEMORY MANAGER INIT 
BUFFER FILE MANAGER INIT 
BLOCK FILE MANAGER INIT 
BLOCK FILE MANAGER INIT2 
CLOCK SYSTEM CALL INIT 

; ON BOARD DISK DRIVER'S DIBS (1-4) 



*ENTRY I. BASE. P 



; USED BY BFM.INIT2 
PAGE 

REP 100 



(HARDWIRED! ) 



* FILE DATA DECLARATIONS 



• Apple /// Computer » SOS 1.3 Source Code Listing » 199 of 255 




000158 


* 






000159 




REP 


100 


000160 


* KERNEL FILE 




000161 




REP 


100 


000162 


K. FILE 


ASC 


"SOS KRNL 


000163 


K.HDR.CNT 


DW 


LDR.ADR-K 


000164 


K. DRIVES 


DFB 


$1 


000165 


K . FLAGS 


DEB 


$0 


000166 


I . PATH 


DFB 


$E 


000167 




ASC 


" . Dl/SOS . 


000168 




DS 


$30-$F 


000169 


D.PATH 


DFB 


$E 


000170 




ASC 


".Dl/SOS. 


000171 




DS 


$30-$F 


000172 


LDR.ADR 


DW 


$0 


000173 


LDR.CNT 


DW 


ZZEND-SOS 


000174 




REP 


100 


000175 


* INTERPRETER/ DRIVER 


FILES <--+ 


000176 


* ERROR MESSAGES 




000177 


* WELCOME 


MESSAGES 


< — + 


000178 




REP 


100 


000179 




PAGE 




000180 




REP 


100 


000181 








000182 


* SOSLDR - 


DATA DECLARATIONS (1) 


000183 








000184 




REP 


100 


000185 


TRUE 


EQU 


$80 


000186 


FALSE 


EQU 


$0 


000187 








000188 


Z.REG 


EQU 


$FFDO 


000189 


E.REG 


EQU 


$FFDF 


000190 


B.REG 


EQU 


$FFEF 


ouoiyi 








000192 


CZPAGE 


EQU 


$1A00 


000193 


OS PAGE 


EQU 


$1B00 


000194 


CXPAGE 


EQU 


$1600 


000195 


SZPAGE 


EQU 


$1800 


000196 


SXPAGE 


EQU 


$1400 


000197 


SSPAGE 


EQU 


$0100 


000198 








000199 


ROM . ADR 


EQU 


$F1B9 


000200 


ROM. ID 


EQU 


$A0 


000201 




PAGE 




000202 




REP 


100 


000203 








000204 


* SOSLDR - 


DATA DECLARATIONS (2) 


000205 








000206 




REP 


100 


000207 


ZPAGE 


EQU 


$00 


000208 








000209 


K . BASE 


EQU 


ZPAGE+$0 


000210 


T TIT C^TP Tl 


EQU 


ZPAGE+$2 


000211 


RDBUF . P 


EQU 


ZPAGE+$4 


000212 


SYSBUF. P 


EQU 


ZPAGE+$6 


000213 


TEMP . BANK 


EQU 


ZPAGE+$8 


000214 


TEMP.ADRH 


EQU 


ZPAGE+$9 


000215 


WORK.P 


EQU 


ZPAGE+$A 


000216 


* 






000217 


REV. SAVE 


EQU 


ZPAGE+$C 


000218 


* 






000219 


FIRST. ADIE 


EQU 


ZPAGE+$10 


000220 


PREV.ADIB. 


P EQU 


ZPAGE+$12 


000221 


DIB. P 


EQU 


ZPAGE+$14 


000222 


PG. ALIGN 


EQU 


ZPAGE+$16 


000223 


DIB . FLAGS 


EQU 


$14 


000224 


DIB . DCB 


EQU 


$20 


000225 


* 






000226 


PREVBANK 


EQU 


ZPAGE+$18 


000227 


PREVDST 


EQU 


ZPAGE+$19 


000228 








n n n 1 1 n 

uuu^zy 


CODE . P 


EQU 


ZPAGE+$1C 


000230 


REL.P 


EQU 


ZPAGE+$1E 


000231 


REL.END 


EQU 


ZPAGE+$20 


000232 


* 






000233 


SRC.P 


EQU 


ZPAGE+$22 


000234 


DST.P 


EQU 


ZPAGE+$24 


000235 


CNT 


EQU 


ZPAGE+$26 


000236 


* 






000237 


DSTBANK 


EQU 


ZPAGE+$2A 


000238 


LINK.P 


EQU 


ZPAGE+$2C 



RESERVED FOR FUTURE USE 



DEFINED IN BACK OF THIS LISTING 



SOSLDRl SUBROUTINE 



! <VARNAME>.P 



3 BYTE ZPAGE POINTER ! 



REVERSE SUBROUTINE 
FLAGS SUBROUTINE 



; GETMEM SUBROUTINE 



; RELOCATION SUBROUTINE 



MOVE SUBROUTINE 



LINK SUBROUTINE 
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000239 * 

000240 DIB. ENTRY EQU 

000241 DIB. UNIT EQU 

000242 DIB.DTYPE EQU 

000243 * 

000244 ETEMP EQU 

000245 * 

000246 WTEMP EQU 
000247 

000249 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.C.SRC 

000250 ************************************************************************* 
000251 

000252 

End of File — Lines: 252 Characters: 7483 



2 ; ALLOC. DEV SUBROUTINE 

4+16+2 

4+16+3 

ZPAGE+$2E ; ERROR SUBROUTINE 

ZPAGE+$2F ; WELCOME SUBROUTINE 
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FILE: "SOS. SOSLDR.D. SRC. TEXT" 



000001 


************************************************************************* 




000002 


* APPLE 


/// 


SOE 


1.3 SOURCE 




SOSLDR.D. SRC 




000003 










-k * -k -k * -k -k-k -k -k 








000004 


* ASSEMBLER: 


APPLE ] [ 6502 




from 


APPLE COMPUTER TOOLKIT 




000005 


















000006 








PAGE 










000007 








REP 


lUU 








000008 


* 
















000009 


* SOS LOADER 














000010 


















000011 


* (MAIN 


PROGRAM) 










000012 








REP 


100 








000013 


SOSLDR 






EQU 








+ 


000014 








LDA 


ff u 




; ZERO SOS /USER X, Z AND STACK PAGES 


! SEE 


000015 








TAX 








+ 


000016 


SLDROlO 






STA 


CVDACW Y 








000017 








STA 


IjAtr/iloIii / A 








000018 








STA 


UorrAljCi f A 








000019 








STA 


Q^DTiC'R' Y 
i trjioHi / A 








000020 








STA 


QYCZiCT? Y 
OAir^iOlii / A 








000021 








STA 


Qqp7vr''R' Y 
00 trriloci / A 








000022 








DEX 










000023 








BNE 


OijUx\U J. U 








000024 














SETUP SOS CALL ENVIRONMENT (WRITE PROTECT— OFF) 




000025 








LDA 






; E:=( 0.0.1.1:0.0.0.0 ) 




000026 








STA 


E.REG 




; ( l.I.S.RiW.P.R.R ) 




000027 


















000028 








LDX 






; CONSOLE 1.0 MODIFIES STACK DURING D.INIT 


CALL 


000029 








TXS 










000030 








LDA 






; ZREG : =CALLER ' S Z PAGE 




000031 








STA 


Z .REG 


























000032 














H h 




000033 








JSR 


oUoijJJK± 




; ! PROCESS KRNL/INTERP/DRVR FILES ! 






















000034 














H h 




000035 








LDA 


E REG 








000036 








AND 






; SETUP SOS CALL ENVIRONMENT (WRITE PROTECI 


=0N) 


000037 








ORA 






; E:=( 0.0. l.X:l. 0.0.0 ) 




000038 








STA 


E.REG 




; ( l.I.S.R:W.P.R.R ) 




000039 


















000040 








LDX 






; STACK . REG : -$FF 




000041 








TXS 










000042 








LDA 






; ZREG : -CALLER ' S Z PAGE 




000043 








STA 


Z.REG 








000044 














H 




000045 








LDA 






; BREG:=SYSBANK 


! SEE 


000046 








STA 








+ 


000047 








JMP 






; SOS LOAD COMPLETE - JMP TO INTERPRETER 




000048 


















000049 


*THE END 
















000050 








REP 


100 








000051 








PAGE 










000052 








REP 


100 








000053 


















000054 


* MOVE ( 


IN: 




SRC.P 










000055 


* 


IN: 




DST.P 










000056 


* 


IN: 




A="BANK" 










000057 


* 


IN: 




CNT ) 










000058 


* 
















000059 




LOCAL : 


END 










000060 


* (MOVES 


SRC 


.P. 


. SRC . P+CNT- 


1 TPl nQT P 
_L IKJ JJO 1 . Jr . 


. DST . 


P+CNT-1) "CNT PARM IS DESTROYED" 




000061 








REP 


1 nn 








000062 


MOVE 






EQU 


* 








000063 








TAX 










000064 








LDA 


B.REG 




; SAVE BANK REGISTER 




000065 








PHA 










000066 








STX 


B.REG 




; BREG:-A 




000067 








LDA 


CNT+1 




; IF CNT <> 




000068 








ORA 


CNT 




THEN 




000069 








BEQ 


MOVE. EXIT 








000070 








LDA 


CNT 




CNT:=CNT-1 




000071 








BNE 


MOVEOlO 








000072 








DEC 


CNT+1 








000073 


MOVEOlO 






DEC 


CNT 








000074 








CLC 






SRC . P : =SRC . P+PAGE . CNT 




000075 








LDA 


SRC.P+1 








000076 








ADC 


CNT+1 
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000077 




STA 


SRC . P+1 




000078 




LDA 


DST . P+1 


DST . P : -DST . P+PAGE . CNT 


000079 




ADC 


CNT+1 




000080 




STA 


DST . P+1 




000081 




INC 


CNT+1 


PAGE . CNT : =PAGE .CNT+1 


000082 




LDY 


CNT 


Y : =BYTE . CNT 


000083 




BEQ 


MOVE020 


IF Y=0 THEN M2 


000084 










000085 


MOVE . PAGE 


LDA 


(SRC . P) , Y 


Ml : DO 


000086 




STA 


(DST . P) , Y 


(DST.P) , Y := (SRC . P) / Y 


000087 




DEY 




Y : -Y-1 


000088 




BNE 


MOVE . PAGE 


UNTIL Y=0 


000089 


MOVE020 


LDA 


(SRC.P) , Y 


M2 : (DST.P) ,Y:=(SRC.P) ,Y 


000090 




STA 


(DST . P) , Y 




000091 




DEY 




Y:=Y-1 


000092 




DEC 


SRC . P+1 


SRC . P : -SRC . P-256 


000093 




DEC 


DST . P+1 


DST . P : =DST .P-256 


000094 




DEC 


CNT+1 


PAGE . CNT : -PAGE . CNT-1 


000095 




BNE 


MOVE . PAGE 


IF PAGE. CNT <> THEN Ml 


000096 










000097 




INC 


SRC . P+1 


RESTORE SRC . P 


000098 




INC 


DST . P+1 


" DST . P 


000099 










000100 


MOVE .EXIT 


PLA 




RESTORE BANK REGISTER 


000101 




STA 


B.REG 




000102 




RTS 






000103 




PAGE 






000104 




REP 


100 




000105 










000106 


* LINK { IN: 


DST.P 






000107 


* IN: 


DSTBANK 






000108 


* IN: 


PREVBANK 






000109 


* IN: 


FIRST. ADIB 






000110 


* I/O: 


SDT.TBL 






000111 


* I/O: 


BLKDLST 






000112 


* OUT : 


LINKED DRIVER MODULE ) 




000113 










000114 


* OWN : 


LINK.? 






000115 


* (LINKS FIRST 


DIB TO PREVIOUS DRIVER'S LAST "ACTIVE" DIB, AND ADDS SDT ENTRY) 


000116 




REP 


100 




000117 


LINK 


EQU 


* 




000118 




CLC 




FIRST. ADIB:=0: DST. P+FIRST. ADIB 


000119 




LDA 


DST.P 




000120 




ADC 


FIRST. ADIB 




000121 




STA 


FIRST. ADIB 




000122 




LDA 


DST. P+1 




000123 




ADC 


FIRST. ADIB+1 




000124 




STA 


FIRST. ADIB+1 




000125 




LDA 


#0 




000126 




STA 


CXPAGE+FIRST. ADIB+1 




000127 




LDA 


PREVBANK 


BREG:=PREVBANK 


000128 




STA 


B.REG 




000129 




LDY 


#0 


(LINK.P) :=FIRST.ADIB 


000130 




LDA 


FIRST. ADIB 




000131 




STA 


(LINK.P) , Y 




000132 




INY 






000133 




LDA 


FIRST. ADIB+1 




000134 




STA 


(LINK.P) , Y 




000135 




LDA 


DSTBANK 


BREG:=DSTBANK 


000136 




STA 


B.REG 




000137 




LDA 


FIRST. ADIB 


LINK . P : =FIRST . ADIB 


000138 




STA 


LINK.P 




000139 




LDA 


FIRST. ADIB+1 




000140 




STA 


LINK. P+1 




000141 


WALKLINKS 


JSR 


ALLOC . DEV 


ALLOC. DEV(LINK.P BREG.IN, SDT.TBL BLKDLST. 10) 


000142 


LINKOlO 


LDY 


#0 


WHILE (LINK.P) <> AND (LINK.P) <> LINK.P 


000143 




LDA 


(LINK.P) , Y 




000144 




INY 






000145 




ORA 


(LINK.P) , Y 




000146 




BEQ 


LINKIOO 




000147 




LDA 


(LINK.P) ,Y 




000148 




CMP 


LINK. P+1 




000149 




BNE 


LINK030 




000150 




DEY 






000151 




LDA 


(LINK.P) , Y 




000152 




CMP 


LINK.P 




000153 




BEQ 


LINKIOO 




000154 


LINK030 


LDY 


#0 


DO LINK. P:= (LINK.P) 


000155 




LDA 


(LINK.P) , Y 




000156 




TAX 






000157 




INY 
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000158 




LDA 




(LINK. P) , Y 






000159 




STX 




LINK . P 






000160 




STA 




LINK.P+1 






000161 




JSR 




ALLOC . DEV 




" ALLOC. DEV(LINK.P BREG.IN, SDT. TBL BLKDLST. I 


000162 




JMP 




LINKOlO 






000163 














000164 


LINKIOO 


LDY 




#0 


'■ 


(LINK. P) : =0 


000165 




TYA 










000166 




STA 




(LINK. P) , Y 






000167 




I NY 










000168 




STA 




(LINK.P) , Y 






000169 




DEY 






'■ 


BREG:=0 


000170 




STY 




B.REG 






000171 




RTS 










000172 














00017 J 














000174 














000175 














000176 


* LINK.INIT ( 


IN : 


A= 


# DRIVES 






000177 




IN: 


DIBl . . 4 






000178 




I/O: 


SDT . TBL 






000179 




I/O: 


BLKDLST ) 






000180 














000181 


LINK, INIT 


EQU 




* 






000182 




JSR 




SET . DRIVES 


'■ 


SET . DRIVES (A=#DRIVES . IN, DIBl . . 4 . IN) 


000183 




LDA 




#0 






000184 




STA 




MAX . DNUM 


'■ 


MAXDNUM:^0 


000185 




STA 




BLKDLST 




BLKDLST : =0 


000186 




STA 




CXPAGE+LINK 


P+1 ; 


LINK. P : -0 : DIBl 


000187 




LDA 




#>DIB1 






000188 




STA 




LINK.P 






000189 




LDA 




#<DIB1 






000190 




STA 




LINK.P+1 






000191 




JMP 




WALKLINKS 






000192 




PAGE 








000193 




REP 




100 






000194 














000195 


* ALLOC . DEV ( 


IN: 


LINK.P 






000196 




IN: 


B. 


REG 






000197 




I/O: 


SDT . TBL 




(SYSTEM DEVICE TABLE) 


000198 








IN: SDT. SIZE 


= CONSTANT 




000199 








IN: DIB. ENTRY 


= CONSTANT 


DEV DIB ADR BANK UNIT 


000200 








IN: DIB. UNIT 


= CONSTANT 




000201 








IN: DIB.DTYPE 


= CONSTANT 


1 ! ! ! ! 


000202 








I/O: MAX. DNUM 




2 ! ! ! ! 


000203 








OUT: SDT. BANK 






000204 








OUT: SDT. DIB 






000205 








OUT: SDT. ADR 






000206 








OUT: SDT. UNIT 




MAX. DNUM 


000207 




I/O: 


BLKDLST 






000208 








IN: BLKD.SIZE 


= CONSTANT 




000209 


* (ADDS A NEW 


ENTRY 


TO 


THE DEVICE MANAGER'S SYSTEM DEVICE TABLE (SDT)) 


000210 




REP 




100 






000211 


ALLOC . DEV 


EQU 










000212 




INC 




MAX . DNUM 




MAX . DNUM : =MAX . DNUM+ 1 


000213 




LDX 




MAX . DNUM 




IF MAX. DNUM >= SDT. SIZE 


000214 




CPX 




#>SDT.SIZE 




THEN 


000215 




BCC 




ADEVOlO 






000216 




LDX 




#ERR8X 




ERROR ("TOO MANY DEVICES") 


000217 




LDY 




#ERR8L 






000218 




JSR 




ERROR 






000219 


ADEVOlO 


LDA 




B.REG 




SDT. BANK, X:=BREG 


000220 




STA 




SDT. BANK, X 






000221 




CLC 








SDT . DIB, X : =LINK . P+4 


000222 




LDA 




LINK.P 






000223 




ADC 




#4 






000224 




STA 




SDT. DIBL, X 






000225 




LDA 




LINK.P+1 






000226 




ADC 




#0 






000227 




STA 




SDT.DIBH,X 






000228 




SEC 








SDT.ADR,X:=(LINK.P) ,DIB.ENTRY-1 


n n n 1 1 n 

uuuzzy 




LDY 




#DIB. ENTRY 






000230 




LDA 




(LINK.P) , Y 






000231 




SBC 




#1 






000232 




STA 




SDT.ADRL,X 






000233 




INY 










000234 




LDA 




(LINK.P) , Y 






000235 




SBC 




#0 






000236 




STA 




SDT.ADRH,X 






000237 




LDY 




IDIB.UNIT 




SDT. UNIT, X:=(LINK.P) , DIB. UNIT 


000238 




LDA 




(LINK.P) , Y 
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000239 


STA 


SDT . UNIT, X 






000240 


LDY 


#DIB . DTYPE 




IF (LINK. P) , DIB . DTYPE ^ "BLOCK DEVICE" 


000241 


LDA 


(LINK. P) , Y 






000242 


BPL 


ADEV.EXIT 






000243 


TXA 






THEN 


000244 


INC 


BLKDLST 




BLKDLST : =BLKDLST+1 


000245 


LDX 


BLKDLST 




IF BLKDLST >= BLKD.SIZE 


000246 


CPX 


#>BLKD .SIZE 




THEN 


000247 


BCC 


ADEV020 






000248 


LDX 


#ERR9X 




ERROR ("TOO MANY BLOCK DEVICES 


000249 


LDY 


#ERR9L 






000250 


JSR 


ERROR 






000251 


ADEV020 STA 


BLKDLST, X 




BLKDLST, X:=MAX. DNUM 


000252 


ADEV.EXIT RTS 






RETURN 


000253 


PAGE 








000254 


REP 


100 






000255 


* 








000256 


* SOSLDRl 








000257 










000258 


* { PROCESSES KERNEL/ INTERPRETER/ DRIVER 


FILES) 




000259 


REP 


100 






000260 


SOSLDRl EQU 








000261 


LDX 


#$1F 




COPY ROM'S DISK CORE ROUTINE ZPAGE VARS T 


000262 


LDRO 1 LDA 


$380, X 






0002 63 


STA 


SZPAGE, X 






0002 64 


DEX 








000265 


BPL 


LDRO 1 






000266 


REP 


100 






000267 


* PROCESS KERNEL FILE 








000268 


REP 


100 






000269 










000270 


* MOVE AND INITIALIZE 


SOS GLOBALS 






000271 










000272 


LDA 


#>LDR. ADR 




WORK . P : =0 : LDR . ADR 


000273 


STA 


WORK . P 






000274 


LDA 


#<LDR. ADR 






000275 


STA 


WORK . P+1 






000276 


JSR 


ADVANCE 




ADVANCE (WORK. P. 10, SRC.P DST.P CNT. OUT) 


000277 










000278 


LDA 


B.REG 




MOVE (SRC.P DST.P A=BREG CNT. IN) 


000279 


JSR 


MOVE 






000280 










000281 


LDA 


B.REG 




SYSBANK : =BREG 


000282 


AND 


#$0F 






000283 


STA 


SYSBANK 






000284 


ASL 


A 




MEMSIZ :=SYSBANK*2+4 "16K CHUNKS" 


000285 


CLC 








000286 


ADC 


#4 






000287 


STA 


MEMSIZE 




AND, MEMSIZE (SIZE IN 16K BYTE "CHUNKS") 


000288 










000289 


* MOVE KERNAL CODE 








000290 










000291 


JSR 


ADVANCE 




ADVANCE (WORK. P. 10, SRC.P DST.P CNT. OUT) 


000292 


* 








000293 


LDA 


DST. P 




K.BASE:=DST.P 


000294 


STA 


K . BASE 






000295 


LDA 


DST . P+1 






000296 


STA 


K.BASE+1 






000297 


LDA 


B.REG 




MOVE (SRC.P DST.P A=BREG CNT. IN) 


000298 


JSR 


MOVE 






000299 


* 








000300 


* MOVE LOADER TO BANK 


AND SWITCH FROM 


SYSTEM BANK TO BANK 


000301 


* 








000302 


LDA 


#>$2000 




MOVE (SRC. P=0: 2000 DST.P=8F:2000 A=BREG CN 


000303 


STA 


SRC.P 






000304 


STA 


DST.P 






000305 


LDA 


#<$2000 






000306 


STA 


SRC . P+1 






000307 


STA 


DST. P+1 






000308 


LDA 


#$8F 






000309 


STA 


CXPAGE+DST.P+1 




000310 


LDA 


#>LDREND-S20 


00 




000311 


STA 


CNT 






000312 


LDA 


#<LDREND-$20 


00 




000313 


STA 


CNT+1 






000314 


LDA 


B.REG 






000315 


JSR 


MOVE 






000316 


LDA 


#0 




BREG:=0 


000317 


STA 


B.REG 






000318 


* 








000319 


* INITIALIZE SDT TABLE 


, KERNEL AND PRINT WELCOME 


MESSAGE 
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000320 












000321 






LDA 


K . DRIVES 


LINK. INIT (A^K. DRIVES DIBl . . 4 . IN, SDT . TBL BLKDLST . 10) 


A A O O O 






JSR 


LINK. INIT 




A A A O O 

000323 






JSR 


INIT .KRNL 


INIT. KRNL 


A A A O O A 

000324 






JSR 


WELCOME 


WELCOME ( ) 


A A A O A IT 

000325 












A A A O 

000326 






LDA 


E . REG 


ENABLE ROM BANK 


000327 






ORA 


#$03 




000328 






STA 


E . REG 




000329 






LDA 


ROM . ADR 


IF MONITOR ROM <> NEW 


000330 






CMP 


#ROM. ID 


THEN 


000331 






BEQ 


LDRO 20 




A A A O O O 

000332 






LDX 


#ERR7X 


ERRORC'ROM ERROR; PLEASE NOTIFY YOUR DEALER") 


000333 






LDY 


#ERR7L 




A A A O O A 

000334 






JSR 


ERROR 




A A A O O IT 

000335 


LDR020 




LDA 


E . REG 


DISABLE ROM BANK 


A A A t) 

000336 






AND 


#$F6 




A A A t) O ^ 

000337 






STA 


E . REG 




000338 






REP 


100 




000339 


* PROCESS 


INTERPRETER 


FILE 




000340 






REP 


100 




A A A O /I T 

000341 












000342 


* OPEN 


SOS 


INTERPRETER 


FILE (DEFAULT=' SOS . INTERP 


) 


A A A O A *?> 

000343 












000344 






LDY 


I . PATH 


OPEN (PATHNAME : —I . PATH 


000345 


LDRO 3 




LDA 


I . PATH , Y 


REFNUM— OPEN . REF 


000346 






STA 


PATH, Y 


SYSBUF, P :^80 : LDREND-2000 ) 


000347 






DEY 






000348 






BPL 


LDRO 30 




A A A O /I A 

000349 












A A A O C A 

000350 






LDA 


#>LDREND- $ 2 




000351 






STA 


SYSBUF . P 




A A A O C O 

000352 






LDA 


#<LDREND- $ 2 




A A A O C O 

000353 






STA 


SYSBUF . P+1 




A A A t) r A 

000354 






LDA 


#$80 




000355 






STA 


CXPAGE+SYSBUF . P+1 




000356 












000357 












000358 






BRK 






A A A O C A 

000359 






DFB 


OPEN 




000360 






DW 


OPEN . PARMS 




A A A O ^ T 

000361 






BEQ 


LDRO 40 




A A A t) ^ ^ 

000362 






LDX 


#ERR1X 


ERROR (" INTERPRETER FILE NOT FOUND") 


000363 






LDY 


#ERR1L 




000364 






JSR 


ERROR 




000365 


LDRO 4 




LDA 


OPEN . REF 




000366 






STA 


READ . REF 




000367 






STA 


CLOSE. REF 




A A A o ^ n 

000368 












A A A O ^ A 

000369 


* READ 


IN 


ENTIRE INTERPRETER FILE 




A A A O T A 

000370 












000371 






LDA 


#$80 


READ (REFNUM- READ . REF 


000372 






STA 


CXPAGE+RDBUF . P+1 


RDBUF . P : =80 : FILE 


000373 






LDA 


#>FILE 


BYTES-$FFFF-FILE+1 


000374 






STA 


RDBUF . P 


BYTESRD=I . BYTESRD ) 


000375 






LDA 


#<FILE 




A A A O ""J 

000376 






STA 


RDBUF. P+1 




000377 


* 










A A A O T n 

00037b 






BRK 






A A A O T A 

000379 






DFB 


READ 




A A A t) O A 

0003o0 






DW 


READ . PARMS 




000381 






BEQ 


LDR050 




000382 






LDX 


#ERROX 


ERROR ("I/O ERROR" ) 


000383 






LDY 


#ERROL 




000384 






JSR 


ERROR 




000385 


* 








H h 


A A A O O 

0003o6 


* CLOSE 


INTERPRETER FILE AND CHECK LABEL 


! SEE FIGURE 2 . ! 


000387 


* 








^ 1- 


A A A o o n 

000388 


LDRO 50 




BRK 




CLOSE (REFNUM=CLOSE.REF) 


A A A O A 

000389 






DFB 


CLOSE 




000390 






DW 


CLOSE . PARMS 




000391 






LDY 


#7 


CHECK LABEL 


000392 


LDRO 51 




LDA 


(RDBUF. P) ,Y 




000393 






CMP 


I .LABEL, Y 




000394 






BNE 


LDRO 5 2 




000395 






DEY 






000396 






BPL 


LDRO 51 




000397 






BMI 


LDRO 5 3 




000398 


LDRO 5 2 




LDX 


#ERR2X 


ERROR ("INVALID INTERPRETER FILE") 


000399 






LDY 


#ERR2L 




000400 






JSR 


ERROR 
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000401 










000402 


* MOVE INTERPRETER CODE 








000403 










000404 


LDRO 53 LDA 


#>I .HDR.CNT- 


2 


WORK. P : =80 ; I .HDR.CNT-2 


000405 


STA 


WORK. P 






000406 


LDA 


#<I . HDR, CNT- 


2 




000407 


STA 


WORK . P+1 






000408 


LDA 


#$80 






000409 


STA 


CXPAGE+WORK. 


P+1 




000410 










000411 


JSR 


ADVANCE 




ADVANCE (WORK. P . 10, SRC.P DST.P CNT. 


000412 










000413 


LDA 


DST.P 




I . BASE . P : =0 : DST . P 


000414 


STA 


I. BASE. P 






000415 


LDA 


DST . P+1 






000416 


STA 


I. BASE. P+1 






000417 


LDA 


#0 






000418 


STA 


CXPAGE+I . BASE . P+1 




000419 










000420 


CLC 






IF DST.P+CNT > K.BASE THEN ERROR 


000421 


LDA 


CNT 






000422 


ADC 


DST.P 






000423 


TAX 








000424 


LDA 


CNT+1 






000425 


ADC 


DST. P+1 






000426 


CPX 


K . BASE 






000427 


SBC 


K.BASE+1 






000428 


BEQ 


LDR070 






000429 


BCC 


LDRO 70 






000430 


LDX 


#ERR3X 




ERROR ( "INCOMPATIBLE INTERPRETER" ) 


000431 


LDY 


#ERR3L 






000432 


JSR 


ERROR 






000433 










000434 


LDRO 70 LDA 


SYSBANK 




MOVE (SRC . P=RDBUF. P DST.P A=SYSBANK 


000435 


JSR 


MOVE 






000436 


REP 


100 






000437 


* PROCESS DRIVER FILE 








000438 


REP 


100 






000439 










000440 


* OPEN SOS DRIVER FILE 


(DEFAULT='SOS. DRIVER' ) 




000441 










000442 


LDY 


D.PATH 




OPEN ( PATHNAME : =D . PATH 


000443 


LDRO 80 LDA 


D.PATH, Y 




REFNUM=OPEN . REF 


000444 


STA 


PATH, Y 




SYSBUF. P:=80 : LDREND-2000 ) 


000445 


DEY 








000446 


BPL 


LDRO 80 






000447 










000448 


BRK 








000449 


DFB 


OPEN 






000450 


DW 


OPEN.PARMS 






000451 


BEQ 


LDRO 90 






000452 


LDX 


#ERR4X 




ERROR ("DRIVER FILE NOT FOUND") 


000453 


LDY 


#ERR4L 






000454 


JSR 


ERROR 






000455 


LDRO 90 LDA 


OPEN . REF 






000456 


STA 


READ . REF 






000457 


STA 


CLOSE. REF 






000458 










000459 


* READ IN ENTIRE DRIVER 


FILE INTO BANK 







000460 










000461 


BRK 






READ (REFNUM=READ . REF 


000462 


DFB 


READ 




RDBUF.P: =80: FILE 


000463 


DW 


READ . PARMS 




BYTES=$FFFF-FILE+1 


000464 






BYTESRD=D.BYTESRD ) 


000465 


BEQ 


LDRIOO 






000466 


LDX 


#ERROX 




ERROR ("I/O ERROR") 


000467 


LDY 


#ERROL 






000468 


JSR 


ERROR 






000469 








+- 


000470 


* CLOSE THE DRIVER FILE 


AND CHECK LABEL 




000471 








+- 


000472 


LDRIOO BRK 






CLOSE (REFNUM=CLOSE.REF) 


000473 


DFB 


CLOSE 






000474 


DW 


CLOSE . PARMS 






000475 


LDY 


#$7 




CHECK LABEL 


000476 


LDRlOl LDA 


(RDBUF.P) , Y 






000477 


CMP 


D. LABEL, Y 






000478 


BNE 


LDR102 






000479 


DEY 








000480 


BPL 


LDRlOl 






000481 


BMI 


LDR103 







SEE FIGURE 3. ! 
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000482 


LDR102 LDX 


#ERR5X 


000483 


LDY 


#ERR5L 


000484 


JSR 


ERROR 


0UU4oo 






000486 


* MOVE CHARACTER SET TABLE 




000487 






00U48o 


LDR103 LDA 


#>D . CHRSET 


000489 


STA 


SRC . P 


0004 90 


LDA 


#<D . CHRSET 


0004 91 


STA 


SRC . P+1 


000492 


LDA 


#>$C00 


000493 


STA 


DST . P 


000494 


LDA 


#<$coo 


000495 


STA 


DST . P+1 


A A A yi A 

000496 


LDA 


#>540U 


0004 97 


STA 


CNT 


0004 98 


LDA 


#<S400 


0004 99 


STA 


CNT + 1 


000500 


LDA 


#0 


000501 


JSR 


MOVE 


A A A C A O 

000502 






A A A C A 

000503 


* MOVE KEYBOARD TABLE 




000504 






A A A C A IT 

000505 


LDA 


#>D . KYBD 


A A A C A 

0U05U6 


STA 


SRC . P 


000507 


LDA 


#<D . KYBD 


000508 


STA 


SRC . P+1 


000509 


LDA 


IL 1 ^ A A 


000510 


STA 


DST . P 


000511 


LDA 


#<$1700 


A A A C T O 

000512 


STA 


DST . P+1 


A A A C T 

000513 


LDA 


#>510U 


A A A C T A 

000514 


STA 


CNT 


000515 


LDA 




000516 


STA 


CNT+1 


000517 


LDA 


#0 


000518 


JSR 


MOVE 


000519 






000520 


* RE-INITIALIZE SDT TABLE 




A A A C A T 

000521 






A A A C A A 

000522 


LDY 


#>D . DRIVES 


000523 


LDA 


(RDBUF.P) ,^ 


000524 


JSR 


LINK . INIT 


000525 






000526 


LDA 


#0 


000527 


STA 


CXPAGE+DST 


000528 


STA 


DST . P 


A A A C A A 

000529 


LDA 


I . BASE . P+1 


A A A C O A 

000530 


STA 


DST. P+1 


A A A C O T 

000531 


CMP 


#$A0 


A A A C O A 

000532 


BCC 


LDR105 


A A A IT O O 

000533 


LDA 


#$A0 


A A A C A 

000534 


STA 


DST. P+1 


000535 


LDR105 LDA 


SYSBANK 


000536 


STA 


DSTBANK 


000537 


JSR 


REVERSE 


A A A C O A 

000538 


* 




A A A C O A 

000539 


* RELOCATE AND MOVE DRIVERS 


000540 


* 




A A A C /IT 

000541 


NEXTDRIVER JSR 


DADVANCE 


000542 


BCS 


LDR140 


000543 


JSR 


FLAGS 


000544 


BVS 


NEXTDRIVER 


000545 


JSR 


GETMEM 


000546 


JSR 


RELOC 


000547 


* 




000548 


LDA 


DSTBANK 


000549 


BMI 


LDR120 


A A A C C A 

000550 


LDA 


CXPAGE+SRC 


000551 


AND 


#$7F 


A A A C C A 

000552 


STA 


TEMP . BANK 


000553 


LDA 


SRC. P+1 


000554 


BPL 


LDRllO 


000555 


INC 


TEMP . BANK 


000556 


LDRllO AND 


#$7F 


000557 


CLC 




000558 


ADC 


#<$2000 


000559 


STA 


TEMP.ADRH 


000560 


LDA 


DST.P 


000561 


CMP 


SRC.P 


000562 


LDA 


DST. P+1 



ERROR ("INVALID DRIVER FILE") 



MOVE (SRC. P=D. CHRSET DST.P=$COO A=0 CNT=$400) 



; MOVE (SRC. P=D. KYBD DST.P=$1700 A=0 CNT=$100.IN) 



LINK. INIT(A=D. DRIVES DIB1..4.IN, SDT.TBL BLKDLST.IO) 



; DST. P:=0:I. BASE. P/256*256 



IF DST.P>=$A000 THEN DST.P:=$A000 



DSTBANK : =SYSBANK 

REVERSE (D.HDR. CNT. IN, WORK. P. OUT) 



"NO DRIVERS LEFT":=DADVANCE(WORK.P.IO SRC.P CNT REL.P.OUT) 
"INACTIVE":=FLAGS (SRC.P.IN, PG. ALIGN FIRST .ADIB . OUT) 



GETMEM (PG. ALIGN CNT. IN, DST.P DSTBANK DSEGLIST.IO, PREVBANK . OUT ) 
RELOC (SRC.P REL.P DST. P. IN) 



IF DSTBANK < OR DST.P < SRC.P THEN ERROR 
(CONVERT SRC.P TO BANK SWITCHED ADDRESS) 



(NOW COMPARE) 
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000563 
000564 
000565 
000566 
000567 
000568 
000569 
000570 
000571 
000572 
000573 
000574 
000575 
000576 
000577 
000578 
000579 
000580 
000581 
000582 
000583 
000584 
000585 
000586 
000587 
000588 
000589 
000590 
000591 
000592 
000593 
000594 
000595 
000596 
000597 
000598 
000599 
000600 
000601 
000602 
000603 
000604 
000605 
000606 
000607 
000608 
000609 
000610 
000611 
000612 
000613 
000614 
000615 
000616 
000617 
000618 
000619 
000620 
000621 
000622 
000623 
000624 
000625 
000626 
000627 
000628 
000629 
000630 
000631 
000632 
000633 
000634 
000635 



LDR120 



SBC 
LDA 
SBC 
ECS 
LDX 
LDY 
JSR 



LDA 
JSR 
JSR 
JMP 
REP 

* SETUP USER ENVIRONMENT 
REP 



LDR130 



TEMP.ADRH 

DSTBANK 

TEMP. BANK 

LDR130 

#ERR6X 

#ERR6L 

ERROR 

DSTBANK 

MOVE 

LINK 

NEXTDRIVER 
100 

100 



ERRORC'DRIVER FILE TOO LARGE" 



MOVE (SRC. P DST.P A=DSTBANK CNT.IN) 

LINK(DST.P DSTBANK PREVBANK FIRST .ADIB . IN, SDT.TBL BLKDLST.IO) 



* RE-INITIALIZE KERNEL/DRIVERS, ALLOCATE SYSTEM SEGMENTS 



LDR140 



JSR 
JSR 
JSR 



INIT.KPML 
ALLOC . SEG 
ALLOC . DSEG 



* SET PREFIX TO THE BOOT VOLUME 



LDA 
STA 
BRK 
DFB 
DW 



#0 

SCRNMODE 



SETPREFIX 
PREFX.PARMS 



INIT.KRNLO 

ALLOC. SEG (K. BASE I. BASE. P SYSBANK.IN) 
ALLOC . DSEG (DSEGLIST . IN) 



TURN VIDEO OFF - PREVENTS CHAR "GROWTH" DURING DOWNLOAD 
SET . PREFIX (PREFIXPATH=" . Dl " ) 



* LAUNCH CHARACTER SET DOWNLOAD (CONSOLE) AND CLEAR SCREEN 
* 

; BEGIN CHARACTER SET DOWNLOAD (CONSOLE) 



CLEARO 
CLEARl 



CLI 

LDA 
STA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
LDX 
LDY 
STA 
STA 
DEY 
BPL 
INC 
INC 
DEX 
BNE 

INC 
BNE 
INX 
BNE 

LDA 
STA 
RTS 
REP 

CHN 



#0 

CXPAGE+SRC.P+1 

CXPAGE+DST.P+1 

#$04 

SRC . P+1 

DST.P+1 

#$00 

SRC.P 

#$80 

DST.P 

#$A0 

#8 

#$77 

(SRC.P) , Y 
(DST.P) , Y 

CLEARl 
SRC . P+1 
DST.P+1 

CLEARO 

SRC.P 
WAIT 



#$80 

SCRNMODE 



SOSLDR.E.SRC 



CLEAR TEXT SCREENS 



NEXT PAGE 
NEXT PAGE 



; WAIT FOR DOWNLOAD TO COMPLETE 



TURN VIDEO ON 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.D.SRC 

************************************************************************* 



End of File 



Lines: 635 Characters: 19090 
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FILE: "SOS. SOSLDR.E. SRC. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.E. SRC 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



PAGE 
REP 



100 



* SET. DRIVES ( IN: A=# DRIVES 

* IN: DIB1..4 ) 

* (INITIALIZES DIB LINKS IN KERNEL'S FLOPPY DRIVER) 



SET . DRIVES 



STDROlO 



STDR020 



STDR030 



STDR040 



REP 

EQU 
TAY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 

LDA 
CPY 
BCC 
B3Q 
CPY 
BCC 
BCS 

STA 
STA 
RTS 

STA 
STA 
RTS 

STA 
STA 

RTS 

STA 

STA 

RTS 

PAGE 

REP 



100 



#>DIB2 
DIBl 
#<DIB2 
DIBl+1 

#>DIB3 

DIB2 

#<DIB3 

DIB2+1 

#>DIB4 

DIB3 

#<DIB4 

DIB3+1 

#0 

#2 

STDROlO 
STDR020 
#4 

STDR030 
STDR040 

DIBl 
DIBl+1 



DIB2 
DIB2+1 



DIB3 
DIB3+1 



DIB4 
DIB4+1 



100 



* INIT.KRNL 



* (CALLS KERNEL INITIALIZATION MODULES) 
REP 100 



INIT.KRNL 



EQU 
LDA 
ORA 
STA 

LDA 
STA 

JSR 
JSR 
JSR 
BCS 
JSR 
JSR 
JSR 
JSR 
JSR 



E.REG 

#$44 

E.REG 

#<SZPAGE 
Z.REG 

INT. INIT 

EVQ.INIT 

BFM.INIT2 

INITK.ERR 

DMGR.INIT 

CFMGR.INIT 

MMGR. INIT 

BMGR. INIT 

BFM.INIT 



SAVE # OF DRIVES 
DIB1:=ADR(DIB2) 



DIB2:=ADR(DIB3) 



DIB3:=ADR(DIB4) 



CASE (Y=# OF DRIVES) 



1: DIB1:=0 



2: DIB2:=0 



DIB3:=0 



4: DIB4:=0 
RETURN 



SWITCH IN I/O BANK AND SELECT PRIMARY STACK 
E:=( 0.1.1.X:0. 1.0.0 ) 
( l.I.S.R:W.P.R.R ) 

SWITCH TO SOS ZPAGE 



CALL KERNEL INITIALIZATION ROUTINES 
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000077 




JSR 






CLK. INIT 






000078 
















000079 




LDA 






E.REG 


SWITCH OUT I/O BANK AND RETURN TO 


000080 




AND 






#$BB 


Til.— / A A 1 "V.A A A A \ 

E:=( . . i .X: . U . . ) 




000081 




STA 






E .REG 


( l.I.S.R:W.P.R.R ) 




000082 
















000083 




LDA 






#<CZPAGE 


SWITCH BACK TO USER ZPAGE 




000084 




STA 






Z .REG 






000085 
















000086 




RTS 








RETURN 




000087 
















000088 
















000089 


INITK.ERR 


LDX 






#ERROX 


ERROR ( " I /O ERROR" ) 




000090 




LDY 






#ERROL 






000091 




JMP 






ERROR 






000092 




PAGE 












000093 




REP 






100 






000094 
















000095 


* ADVANCE ( 


I/O: WORK 


.P 










000096 




OUT : SRC . 


P 










000097 




OUT : DST . 


P 










000098 




OUT : CNT 












000099 


* (ADVANCES 


WORK.P TO 


NEXT 


INTERP. KERNEL MODULE. 


INITS SRC . P, DST . P, CNT FOR 


MOVE) 


000100 




REP 






100 






000101 
















000102 


ADVANCE 


EQU 












000103 




CLC 












000104 




LDY 






#2 


Y :— 




000105 




LDA 






WORK . P 


WORK . P : —WORK . P+ (WORK . P) , Y + 


4 


000106 




ADC 






(WORK. P) , Y 






000107 




TAX 












000108 




INY 












000109 




LDA 






WORK. P+1 






000110 




ADC 






(WORK. P) , Y 






000111 




PHA 












000112 




TXA 












000113 




ADC 






#4 






000114 




STA 






WORK . P 






000115 




PLA 












000116 




ADC 






#0 






000117 




STA 






WORK. P+1 






000118 




CLC 








SRC . P : =X : WORK . P+4 




000119 




LDA 






WORK . P 






000120 




ADC 






#>$0004 






000121 




STA 






SRC . P 






000122 




LDA 






WORK . P+1 






000123 




ADC 






#<$0004 






000124 




STA 






SRC . P+1 






000125 




LDA 






CXPAGE+WORK . P+1 






000126 




STA 






CXPAGE+SRC . P+1 






000127 




LDY 






#0 


DST.P:=0: (WORK.P) 




000128 




STY 






CXPAGE+DST . P+1 






000129 




LDA 






(WORK. P) , Y 






000130 




STA 






DST . P 






000131 




INY 












000132 




LDA 






(WORK. P) , Y 






000133 




STA 






DST . P+1 






000134 




INY 








Y : =2 




000135 




LDA 






(WORK.P) , Y 


CNT : = (WORK . P ) , Y 




000136 




STA 






CNT 






000137 




INY 












000138 




LDA 






(WORK.P) , Y 






000139 




STA 






CNT+1 






000140 




RTS 








RETURN 




000141 




PAGE 












000142 




REP 






100 






00014 J 
















000144 


* REVERSE ( 


IN: D.HDR.CNT 






000145 




IN: SDT. 


SIZE 


= CONSTANT 






000146 




I/O: DRIVER 


FILE, 






000147 




OUT: WORK.P 




) ) 






000148 
















000149 




LOCAL : REV 


SAVE, REV. TEMP 






000150 


* {REVERSES 


TITLE/CODE/RELOC COUNTS TO ALLOW DRIVER FILE TO BE PROCESSED FROM 


BACK 


000151 




REP 






100 






000152 


REVERSE 


EQU 






* 






000153 




LDA 






#>D.HDR.CNT 


WORK. P:=80: D.HDR.CNT 




000154 




STA 






WORK.P 






000155 




LDA 






KD.HDR.CNT 






000156 




STA 






WORK. P+1 






000157 




LDA 






#$80 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 



REVO 10 



REVO 30 



STA 
CLC 
LDY 
LDA 
ADC 
TAX 
INY 
LDA 
ADC 
PHA 
TXA 
ADC 
STA 
PLA 
ADC 
STA 
LDA 
DEY 
AND 
CMP 
BNE 
LDX 
LDY 
JSR 
LDA 
STA 
STA 

LDA 
PHA 
LDA 
PHA 
LDY 
LDA 
STA 
INY 
LDA 
STA 
PLA 
STA 
DEY 
PLA 
STA 
LDA 
AND 
CMP 
BEQ 
BIT 
BMI 
CLC 
LDA 
ADC 
TAX 
LDA 
ADC 
PHA 
BCS 
TXA 
ADC 
STA 
PLA 
ADC 
STA 
BCC 
LDX 
LDY 
JSR 

RTS 

PAGE 

REP 



CXPAGE+WORK.P+1 
#0 

WORK.P 
(WORK.P) , Y 



WORK.P+1 
(WORK.P) , Y 



#2 

WORK.P 
#0 

WORK.P+1 
(WORK.P) , Y 

(WORK.P) , Y 

#$FF 

REVO 10 

#ERRiax 

♦ERRIOL 

ERROR 

#$FF 

REV. SAVE 
REV. SAVE +1 

REV. SAVE 

REV.SAVE+1 

#0 

(WORK.P) , Y 
REV. SAVE 

(WORK.P) , Y 
REV.SAVE+1 



WORK . P : =WORK . P+ (WORK . P) +2 



(WORK.P) , Y 



(WORK.P) , Y 
REV. SAVE 
REV.SAVE+1 
#$FF 

REV. EXIT 
REV.SAVE+1 
REVO 40 

WORK . P 

REV. SAVE 

WORK.P+1 
REV.SAVE+1 

REVO 40 

#2 

WORK . P 

#0 

WORK.P+1 
REVO 20 
#ERR5X 
#ERR5L 
ERROR 



100 



* 
* 


DADVANCE 


( I/O 


WORK.P 


* 




OUT 


C="NO DRIVERS LEFT" 


* 




OUT 


SRC.P 


* 




OUT 


CNT 


* 




OUT 


REL.P ) 


* 


(ADVANCES 


WORK 


P TO NEXT DRIVER MODULE 



IF (WORK.P)=$FFFF 
THEN 

ERROR ("EMPTY DRIVER FILE") 



;R1: STACK :=REV. SAVE 



REV . SAVE := (WORK . P ) 



(WORK.P) :=STACK 



IF REV. SAVE = $FFFF THEN EXIT 



IF REV. SAVE >= $8000 THEN ERROR 
WORK . P : =WORK . P+REV . SAVE+2 



IF C=FALSE THEN Rl 

ELSE ERROR("INVALID DRIVER FILE") 



REP 
EQU 
LDY 



100 



#0 



IF (WORK.P)=$FFFF THEN EXIT "NO DRIVERS LEFT IN FILE" 
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000239 


LDA 


(WORK. P) , Y 


000240 


INY 




000241 


AND 


(WORK. P) , Y 


000242 


CMP 


#$FF 


000243 


BNE 


DADVO 1 


000244 


SEC 


; C:="NO DRIVERS LEFT" 


000245 


RTS 


; RETURN 


000246 






000247 






000248 


DADVOlO LDA 


WORK . P ; REL . P : =X : WORK . P 


000249 


STA 


REL . P 


000250 


LDA 


WORK.P+1 


000251 


STA 


REL . P+1 


000252 


LDA 


CXPAGE+WORK . P+1 


000253 


STA 


CXPAGE+REL. P+1 


000254 






000255 


JSR 


DADD ; ADVANCE TO CODE COUNT FIELD 


000256 






000257 


LDY 


#0 ; CNT : = (WORK . P ) 


000258 


LDA 


(WORK. P) , Y 


000259 


STA 


CNT 


000260 


INY 




000261 


LDA 


(WORK. P) , Y 


000262 


STA 


CNT+1 


0002 63 






0002 64 


JSR 


DADD ; ADVANCE TO TITLE CNT FIELD 


000265 






0002 66 


CLC 


; SRC . P : =X : WORK . P+2 


000267 


LDA 


WORK . P 


000268 


ADC 


#2 


000269 


STA 


SRC . P 


000270 


LDA 


WORK.P+1 


000271 


ADC 


#0 


000272 


STA 


SRC . P+1 


000273 


LDA 


CXPAGE+WORK. P+1 


000274 


STA 


CXPAGE+SRC . P+1 


000275 






000276 


JSR 


DADD ; ADVANCE TO RELOC FIELD OF NEXT DRIVER 


000277 


CLC 


; C : = " DRIVERS LEFT " 


000278 


RTS 


; RETURN 


000279 


PAGE 




000280 


REP 


100 


A A A O O T 

0002bl 






000282 


* DADD ( 1/0: WORK . P ) 




000283 






000284 


* (ADVANCES WORK . P TO NEXT 


FIELD IN DRIVER MODULE) 


000285 


REP 


100 


000286 


DADD EQU 




000287 


SEC 


; WORK . P : =WORK . P- (WORK. P) -2 


000288 


LDY 


#0 


000289 


LDA 


WORK.P 


000290 


SBC 


(WORK. P) , Y 


000291 


TAX 




000292 


INY 




000293 


LDA 


WORK . P+1 


000294 


SBC 


(WORK. P) , Y 


000295 


PHA 




000296 


TXA 




000297 


SBC 


#2 


000298 


STA 


WORK . P 


000299 


PLA 




000300 


SBC 


#0 


000301 


STA 


WORK.P+1 


000302 


RTS 


; RETURN 


000303 


PAGE 




000304 


REP 


100 


A A A O A IT 

000305 


* 




000306 


* FLAGS ( IN: SRC.P 




000307 


* OUT: PG. ALIGN 




000308 


* OUT: FIRST. ADIB 




000309 


* OUT: OV="ALL DIBS INACTIVE" ) 


A n n 1 A 






000311 


* LOCAL : PREV .ADIB.P, DIB.P 


000312 


* {PROCESSES "INACTIVE" & ' 


PAGE ALIGN" FLAGS IN DRIVER MODULE'S DIBS" 


000313 


REP 


100 


000314 


FLAGS EQU 


* 


000315 


SEC 


; C="FIRST DIB" 


000316 


FLAGOlO JSR 


NEXT. DIB ; NEXT. DIB (SRC.P. IN, DIB.P PG. ALIGN C OV.OUT) 


000317 


BVC 


FLAG015 ; IF OV <> "INACTIVE" THEN ACTIVE DIB FOUND 


000318 


BCC 


FLAGOlO ; IF C <> "LAST DIB" THEN CHECK NEXT DIB 


000319 


RTS 


; RETURN (OV:="ALL DIBS INACTIVE") 
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000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 



FLAG020 



FLAG025 



FLAG050 



FLAGIOO 



PHP 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
PLP 
BCS 

JSR 
PHP 
LDY 
BVC 
SEC 
LDA 
SBC 
STA 
I NY 
LDA 
SBC 
STA 
JMP 

SEC 
LDA 
SBC 
STA 
I NY 
LDA 
TAX 
SBC 
STA 
STX 
LDA 
STA 
PLP 
BCC 

CLV 
RTS 
PAGE 
REP 



PUSH STATUS 

FIRST. ADIB:=DIB. P-SRC . P 



DIB.P 
SRC.P 

FIRST. ADIB 
DIB.P+1 
SRC.P+1 
FIRST. ADIB+1 
DIB.P 

PREV.ADIB.P 
DIB.P+1 
PREV.ADIB.P+1 
CXPAGE+DIB.P+1 
CXPAGE+PREV.ADIB. P+1 

FLAGIOO 



#0 

FLAG025 

PREV.ADIB.P 
SRC.P 

(PREV.ADIB.P) , Y 

PREV.ADIB.P+1 
SRC.P+1 

(PREV.ADIB.P) , Y 
FLAG050 



DIB.P 
SRC.P 

(PREV.ADIB.P) , Y 

DIB.P+1 

SRC . P+1 

(PREV.ADIB.P) , Y 

PREV.ADIB.P+1 

DIB.P 

PREV.ADIB.P 
FLAG020 



PREV. ADIB. P:=X: DIB.P 



PULL STATUS 

IF C="LAST DIB" THEN EXIT 

NEXT. DIB (SRC.P. IN, DIB.P PG. ALIGN C OV.OUT) 

PUSH STATUS 

IF OV="INACTIVE DIB" 

THEN 

(PREV.ADIB.P) :=PREV.ADIB.P-SRC.P 



ELSE 

(PREV.ADIB.P) :=DIB.P-SRC.P 



PREV . ADIB . P : =DIB . P 



PULL STATUS 

IF C <> "LAST DIB" THEN PROCESS NEXT DIB 



OV:="ACTIVE DIBS" 
RETURN 



100 





NEXT . DIB 


( IN: 


C=" FIRST DIB" 






IN: 


SRC.P 


* 




OUT: 


DIB.P 


* 




OUT: 


PG. ALIGN 


* 




OUT: 


C="LAST DIB" 


* 
* 




OUT: 


0V=" INACTIVE DIB" ) 


* 




LOCAL 


DIB. FLAGS, DIB.DCB = 


* 


(ADVANCES 


TO NEXT DIB IN DRIVER MODULE) 



000381 




REP 


100 




000382 


NEXT . DIB 


EQU 


* 




000383 




LDY 


#0 




000384 




BCC 


NXTDOlO 


; IF C = "FIRST DIB" 


000385 




STY 


PG. ALIGN 


THEN 


000386 




STY 


PG.ALIGN+1 


PG. ALIGN :=0 


000387 




LDA 


SRC.P 


DIB.P:=X:SRC.P 


000388 




STA 


DIB.P 




000389 




LDA 


SRC.P+1 




000390 




STA 


DIB. P+1 




000391 




LDA 


CXPAGE+SRC.P+1 




000392 




STA 


CXPAGE+DIB.P+1 




000393 




JMP 


NXTD020 




000394 


NXTDOlO 


LDA 


SRC.P 


ELSE 


000395 




ADC 


(DIB.P) , Y 


DIB.P:=SRC.P+(DIB 


000396 




TAX 






000397 




INY 






000398 




LDA 


SRC.P+1 




000399 




ADC 


(DIB.P) , Y 




000400 




STA 


DIB.P+1 
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000401 


STX 


DIB . P 




000402 








000403 


NXTD020 LDY 


#DIB. FLAGS 


; IF (DIB. P) , DIB. FLAGS. BIT7 = "INACTIVE" 


000404 


LDA 


(DIB. P) , Y 




000405 


BMI 


NXTD030 




000406 


BIT 


NXTD999 


; THEN 


000407 


BVS 


NXTD040 


; OV : ^" INACT IVE " 


000408 






ELSE 


000409 


NXTD030 AND 


#$40 


; IF (DIB . P) , DIB . FLAGS . BIT6 ^ "PAGE ALIGN" 


000410 


BEQ 


NXTD040 




000411 


CLC 




; THEN 


000412 


LDA 


#DIB. DCB+2 


; PAGE .ALIGN :=DIB . DCB+2+ (SRC . P) , DIB . DCB 


000413 


TAY 






000414 


DEY 






000415 


DEY 






000416 


ADC 


(SRC.P) , Y 




000417 


STA 


PG. ALIGN 




000418 


I NY 






000419 


LDA 


#0 




000420 


ADC 


(SRC .P) , Y 




000421 


STA 


PG. ALIGN+1 




000422 


CLV 




; OV: ="ACTIVE" 


000423 








000424 


NXTD040 LDY 


#0 


; IF (DIB.P) = 


000425 


LDA 


(DIB . P) , Y 




000426 


I NY 






000427 


ORA 


(DIB . P) , Y 




000428 


BNE 


NXTD998 




000429 


SEC 




; THEN C:^"LAST DIB" 


000430 


ECS 


NXTD999 




000431 


NXTD998 CLC 




ELSE C:=NOT "LAST DIB" 


000432 


NXTD999 RTS 




; RETURN 


000433 


REP 


100 




000434 








000435 


CHN 


SOSLDR.F.SRC 




000436 








000437 


RTS 




; RETURN 


000438 








000439 


**********************************************************^ 


000440 


* END OF APPLE /// SOS 1 


3 SOURCE CODE FILE: 


SOSLDR.F.SRC 


000441 


**************************************************** 


000442 









End of File — Lines: 442 Characters: 12097 
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FILE : ' 


SOS.SOSLDR.F.SRC 


.TEXT" 








000001 


************************************************************************* 




000002 


* APPLE /// SOS 


1.3 SOURCE 


CODE FILE: 


SOSLDR.F.SRC 




000003 












000004 


* ASSEMBLER: APPLE ] [ 6502 


ASSEMBLER 


from APPLE COMPUTER TOOLKIT 




000005 












000006 




PAGE 








000007 




REP 


100 






000008 


* 










000009 


* GETMEM ( IN: 


PG. ALIGN 








000010 


* IN: 


CNT 








000011 


* I/O: 


DST.P 








000012 


I/O: 


DSTBANK 








000013 


* I/O: 


DSEGLIST 








000014 


* OUT: 


PREVBANK 


) 






000015 


* 










000016 


* LOCAL: PREVDST 








000017 


* (COMPUTES # OF PAGES TO 


ADD TO DRIVER SEGMENT AND WHETHER TO BEGIN A NEW SEGMENT) 




000018 




REP 


100 






000019 


GETMEM 


EQU 








000020 




LDA 


DSTBANK 


; PREVBANK :=DSTBANK 




000021 




STA 


PREVBANK 






000022 




LDA 


DST . P 


; PREVDST :=DST.P 




000023 




STA 


PREVDST 






000024 




LDA 


DST . P+1 






000025 




STA 


PREVDST+1 






000026 




JSR 


NEWDST 


; NEWDST (PG. ALIGN. IN, PREVDST. IN, CNT. IN, DST.P. 


000027 


* 










000028 




LDA 


DST . P+1 


; IF DST.P >= $2000 




000029 




CMP 


#$20 






000030 




BCC 


GETMOlO 






000031 




SEC 




; THEN 




000032 




LDA 


PREVDST+1 


; A= PAGES : =PREVDST— DST . P 




000033 




SBC 


DST. P+1 






000034 




CLC 








000035 




JSR 


BUILD. DSEG 


; BUILD . DSEG (C="NEXT BANK" . IN 


A=PAGES . IN, 


000036 




JMP 


GETM.EXIT 






000037 


* 






ELSE 




000038 


GETMOlO 


DEC 


DSTBANK 


DSTBANK: =DSTBANK-1 




000039 




LDA 


#>$AO00 


PREVDST:=$A000 




000040 




STA 


PREVDST 






000041 




LDA 


#<$A000 






000042 




STA 


PREVDST+1 






000043 




JSR 


NEWDST 


NEWDST (PG. ALIGN. IN, PREVDST 


IN, CNT. IN, 


000044 




SEC 




A="PAGES" :=PREVDST-DST.P 




000045 




LDA 


PREVDST+1 






000046 




SBC 


DST . P+1 






000047 




SEC 








000048 




JSR 


BUILD. DSEG 


BUILD. DSEG (C="NEXTBANK" . IN, 


A="PAGES".IN 


000049 












000050 


GETM.EXIT 


RTS 




; RETURN 




000051 




PAGE 








000052 




REP 


100 






000053 


* 










000054 


* NEWDST ( IN: 


PG. ALIGN 








000055 


* IN: 


PREVDST 








000056 


* IN: 


CNT 








000057 


* I/O: 


DST.P 


) 






000058 


* (COMPUTES DESTINATION BASE ADDRESS, 


ALIGNING ON PAGE BOUNDARY IF REQUESTED) 




000059 




REP 


100 






000060 


NEWDST 


EQU 


* 






000061 




SEC 




; IF (PREVDST-$2000) < CNT 




000062 




LDA 


PREVDST 






000063 




SBC 


#>$2000 






000064 




TAX 








000065 




LDA 


PREVDST+1 






000066 




SBC 


#<$2000 






000067 




CPX 


CNT 






000068 




SBC 


CNT+1 






000069 




BCS 


NEWDOlO 






000070 




LDA 


#0 


THEN 




000071 




STA 


DST.P 


DST.P:=0 




000072 




STA 


DST. P+1 






000073 




BEQ 


NEWD.EXIT 






000074 


NEWDOlO 


SEC 




ELSE 




000075 




LDA 


PREVDST 


DST . P : =PREVDST-CNT 




000076 




SBC 


CNT 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



STA 


DST . P 


LDA 


PREVDST+1 


SBC 


CNT+1 


STA 


DST . P+1 


LDA 


PG. ALIGN 


ORA 


PG.ALIGN+1 


BEQ 


NEWD . EXIT 


SEC 




LDA 


#0 


SBC 


PG. ALIGN 


STA 


DST.P 


LDA 


DST. P+1 


SBC 


PG.ALIGN+1 


STA 


DST . P+1 


RTS 




PAGE 




REP 


100 



IF PG. ALIGN <> 
THEN 



DST.P:=(DST.P/256*256) -PG. ALIGN 



NEWD. EXIT 



* BUILD. DSEG ( IN: C="NEXTBANK" 

* IN: A="PAGES" 

* I/O: DSEGLIST ) 

* (COMPUTES # OF PAGES TO ADD TO DRIVER SEGMENT AND WHETHER TO BEGIN A NEW SEGMENT) 



BUILD. DSEG 



BLDSOlO 
BLDS020 



DSEGX 
DSEGLIST 



REP 
EQU 

PHA 
BCS 
LDA 
BPL 
INC 
LDX 
CLC 
PLA 
ADC 
STA 
RTS 



DFB 
DFB 
DFB 
DFB 

DFB 

PAGE 

REP 



100 



BLDSOlO 

DSEGX 

BLDS020 

DSEGX 

DSEGX 



DSEGLIST, X 
DSEGLIST, X 



$FF 
$0 
$0 
$0 

$0 

100 



IF ("NEXTBANK"=TRUE OR DSEGX=$FF) 

THEN 

DSEGX :=DSEGX+1 
DSEGLIST (DSEGX) :=DSEGLIST (DSEGX) +"PAGES" 



DRIVER SEGMENT LIST TABLE 

# PAGES FOR 1ST DRIVER SEGMENT (BANK N ) 

" 2ND " (BANK N-1) 

" 3RD " (BANK N-2) 

" 4TH " (BANK N-3) 



RELOC ( IN: 
IN: 
IN: 
OUT: 



SRC.P 
REL.P 
DST.P 

RELOCATED DRIVER MODULE 



LOCAL: REL.END, 
(RELOCATES DRIVER MODULE' 



CODE . P 
S CODE 



FIELD USING RELOCATION FIELD) 



REP 


100 




EQU 


* 




SEC 






LDY 


#0 




LDA 


REL. 


P 


SBC 


(REI 


• P) , Y 


STA 


REL. 


END 


INY 






LDA 


REL. 


P+1 


SBC 


(REI 


.P) , Y 


STA 


REL. 


END+1 


SEC 






LDA 


REL. 


P 


SBC 


#2 




STA 


REL. 


P 


LDA 


REL. 


P+1 


SBC 


#0 




STA 


REL. 


P+1 


LDA 


REL. 


P 


CMP 


REL. 


END 


LDA 


REL. 


P+1 


SBC 


REL. 


END+1 


BCC 


REL. 


EXIT 


LDY 


#0 




CLC 






LDA 


SRC. 


P 


ADC 


(REI 


.P) , Y 


STA 


CODE 


.P 



REL.END:=REL.P- (REL.P) 



REL . P : =REL . P-2 



IF REL.P < REL.END THEN EXIT 



CODE . P : =X : SRC . P+ (REL . P) 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 



I NY 




LDA 


SRC.P+1 


ADC 


(REL.P) , Y 


STA 


CODE.P+1 


LDA 


CXPAGE+SRC . P+1 


STA 


CXPAGE+CODE . P+1 


LDY 


#0 


CLC 




LDA 


(CODE.P) , Y 


ADC 


DST . P 


STA 


(CODE.P) , Y 


INY 




LDA 


(CODE.P) , Y 


ADC 


DST . P+1 


STA 


(CODE.P) , Y 


JMP 


REL . LOOP 


RTS 




PAGE 




REP 


100 



(CODE.P) :=(CODE.P)+DST.P 



GOTO REL. LOOP 
RETURN 



ALLOC. SEG ( IN: K.BASE 

IN: I. BASE. P 

IN: SYSBANK ) 
I . BASE . P 
D.BASE.PG 
(ALLOCATES SEGMENTS FOR KERNEL, 



INTERPRETER AND SYSTEM WORK AREA) 



100 



ALLOC . SEG 



REP 
EQU 
BRK 
DFB 
DW 

LDA 
STA 
STA 
LDA 
STA 

LDX 
JSR 

LDX 

JSR 

RTS 

PAGE 

REP 



* RSEG ( IN: X=BASE.PAGE OF SEGMENT 



REQSEG 
SEGMENT 

#$10 
SEGBASE 
SEGLIM 
#0 

SEGBASE+1 

K.BASE+1 
RSEG 

I. BASE. P+1 

RSEG 



; REQ.SEG(BASE=(F,0) , LIMIT= (F, ID) , SEGID=0, SEGNUM) 



SET BASE/LIMIT BANKS 



AND INIT BASE PAGE 



KERNEL SEGMENT, ID=1 



INTERPRETER SEGMENT, ID=2 



REP 

EQU 
INC 
LDY 
DEY 
STY 
STX 

CPX 
BCS 

LDA 
CMP 
BCC 

TXA 
PHA 
LDX 
STX 

BRK 
DFB 
DW 

PLA 
STA 
LDA 
STA 
LDA 
STA 
STA 



100 

SEGID 
SEGBASE+1 

SEGLIM+1 
SEGBASE+1 

#$A0 
RSEGOlO 

SEGLIM+1 

#SAO 

RSEGOlO 



#$A0 

SEGBASE+1 



REQSEG 
SEGMENT 



SEGBASE+1 

#$9F 

SEGLIM+1 

SYSBANK 

SEGBASE 

SEGLIM 



SEGID:=SEGID+1 

LIMIT . PAGE : =BASE . PAGE-1 



; BASE. PAGE :=X 

IF BASE>=$AO OR LIMIT<$AO THEN 
THEN 

REQUEST ONLY ONE SEGMENT 



ELSE 

REQUEST TWO SEGMENTS 



REQ. SEG (BASE, LIMIT, SEGID, SEGNUM) 
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000239 












000240 


RSEGOlO 


BRK 






REQ . SEG (BASE, LIMIT, SEGID, SEGNUM) 


000241 




DFB 




REQSEG 




000242 




DW 




SEGMENT 




000243 












000244 




RTS 






RETURN 


000245 




PAGE 








000246 




REP 




100 




000247 












000248 


* ALLOC . DSEG 


( IN: DSEGLIST ) 




000249 












000250 


* (ALLOCATES 


SEGMENTS FOR 


DRIVER MODULES" 




000251 




REP 




100 




000252 


ALLOC . DSEG 


EQU 








000253 




INC 




DSEGX 


DSEGX: =DSEGX+1 


000254 




BNE 




ALDSOlO 


IF DSEGX=0 


000255 




LDX 




#ERR5X 


THEN ERROR ("INVALID DRIVER FILE" 


000256 




LDY 




#ERR5L 




000257 




JSR 




ERROR 




000258 












000259 


ALDSOlO 


LDY 




#$FF 


Y:=-l 


000260 


ALDS020 


INY 






WHILE (Y:=Y4-1) < DSEGX 


000261 




CPY 




DSEGX 


DO 


000262 




BCS 




ALDS.EXIT 




0002 63 




LDA 




DSEGLIST, Y 


PAGECT : ^DSEGLIST (Y) 


0002 64 




STA 




SEGPGCNT 




000265 




BRK 






FINDSEG (SRCHMODE^O . IN, SEGID 


000266 




DFB 




FINDSEG 


PAGECT=DSEGLIST (Y) 


000267 




DW 




SEGMENT 1 


BASE . OUT, LIMIT . OUT) 


000268 




JMP 




ALDS020 




000269 












000270 


ALDS.EXIT 


RTS 






RETURN 


000271 




PAGE 








000272 




REP 




100 




000273 












000274 


* ERROR ( IN : 


X=MESSAGE 


INDEX 




000275 


* IN : 


Y=MESSAGE 


LENGTH 




000276 


* {DISPLAYS 


ERROR MESSAGE, 


SOUNDS BELL AND LOOPS 


UNTIL CONTROL/RESET PRESSED) 


000277 




REP 




100 




000278 


ERROR 


EQU 




* 




000279 




STY 




ETEMP 


CENTER MSG (Y:=LEN/2+LEN) 


000280 




SEC 








000281 




LDA 




#40 




000282 




SBC 




ETEMP 




000283 




LSR 




A 




000284 




CLC 








000285 




ADC 




ETEMP 




000286 




TAY 








000287 












000288 


PRNTOlO 


LDA 




ERR,X 


MOVE MESSAGE TO SCREEN MEMORY 


000289 




STA 




EMSGADR-1, Y 




000290 




DEX 








000291 




DEY 








000292 




DEC 




ETEMP 




000293 




BNE 




PRNTOlO 




000294 


* 










000295 




LDA 




#$73 


E:=( 0.1.1.1:0.0.1.1 ) 


000296 




STA 




E.REG 


( 1 . I . S .R:W. P.R. S ) 


000297 




LDA 




$C040 


SOUND BELL 


000298 




JMP 




* 


LOOP UNTIL REBOOT (CTRL/RESET) 


000299 




PAGE 








000300 




REP 




100 




000301 


* 










000302 


* ERROR MESSAGES 








000303 


* 










000304 




REP 




100 




000305 


EMSGADR 


EQU 




$7A8 




000306 


* 










000307 


ERR 


EQU 




* 




000308 


ERRO 


ASC 




"I/O ERROR" 




000309 


ERROL 


EQU 




*-ERRO 






ERROX 


EQU 




*-ERR-l 




000311 


ERRl 


ASC 




"INTERPRETER FILE NOT 


FOUND" 


000312 


ERRIL 


EQU 




*-ERRl 




000313 


ERRIX 


EQU 




*-ERR-l 




000314 


ERR2 


ASC 




"INVALID INTERPRETER FILE" 


000315 


ERR2L 


EQU 




*-ERR2 




000316 


ERR2X 


EQU 




*-ERR-l 




000317 


ERR3 


ASC 




"INCOMPATIBLE INTERPRETER" 


000318 


ERR3L 


EQU 




*-ERR3 




000319 


ERR3X 


EQU 




*-ERR-l 
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000320 


ERR4 


ASC 


"DRIVER FILE NOT FOUND" 


000321 


ERR4L 


EQU 


*-ERR4 


000322 


ERR4X 


EQU 


*-ERR-l 


000323 


ERR5 


ASC 


"INVALID DRIVER FILE" 


000324 


ERR5L 


EQU 


*-ERR5 


000325 


ERR5X 


EQU 


*-ERR-l 


000326 


ERR6 


ASC 


"DRIVER FILE TOO LARGE" 


000327 


ERR6L 


EQU 


*-ERR6 


000328 


ERR6X 


EQU 


*-ERR-l 


000329 


ERR7 


ASC 


"ROM ERROR; PLEASE NOTIFY YOUR DEALER" 


000330 


ERR7L 


EQU 


*-ERR7 


000331 


ERR7X 


EQU 


*-ERR-l 


000332 


ERR8 


ASC 


"TOO MANY DEVICES" 


000333 


ERR8L 


EQU 


*-ERR8 


000334 


ERR8X 


EQU 


*-ERR-l 


000335 


ERR9 


ASC 


"TOO MANY BLOCK DEVICES" 


000336 


ERR9L 


EQU 


*-ERR9 


000337 


ERR9X 


EQU 


*-ERR-l 


000338 


ERRIO 


ASC 


"EMPTY DRIVER FILE" 


000339 


ERRIOL 


EQU 


*-ERR10 


000340 


ERRIOX 


EQU 


*-ERR-l 


000341 




PAGE 




000342 




REP 


100 


000343 








000344 


* WELCOME 







000345 








000346 


* (PRINTS 


WELCOME MESSAGE - "APPLE ///", VERSION, DATE/TIME, COPYRIGHT 


000347 




REP 


100 


000348 


WELCOME 


EQU 


* 


000349 








000350 


* PRINT 


"APPLE III" 


MESSAGE 


000351 








000352 




LDY 


#AMSGL 


A A A O C O 


WAMOlO 


LDA 


AMSG-1, Y 


000354 




STA 


AMSGADR-1, Y 


000355 




DEY 




000356 




BNE 


WAMOlO 


000357 








000358 


* PRINT 


SOS VERSION 


MESSAGE 


000359 








000360 




CLC 




000361 




LDA 


#40 


000362 




ADC 


#>SOSVERL 


000363 




LSR 


A 


000364 




TAX 




000365 




LDY 


#>SOSVERL 


000366 


WSMOlO 


LDA 


SOSVER-1, Y 


000367 




ORA 


#$80 


000368 




STA 


SMSGADR-1,X 


000369 




DEX 




000370 




DEY 




000371 




BNE 


WSMOlO 


000372 








000373 


* PRINT 


DATE AND TIME MESSAGE 


000374 








000375 




BRK 


; GET. TIME (TIME. OUT) 


000376 




DFB 


GETTIME 


000377 




DW 


DTPARMS 


000378 








000379 




LDA 


DATETIME+8 ;SET UP WEEKDAY 


000380 




AND 


#50F 


000381 




BEQ 


WDM040 ;N0 CLOCK 


000382 




STA 


WTEMP 


000383 




ASL 


A 


000384 




ADC 


WTEMP 


000385 




TAX 




000386 




LDY 


#3 


000387 


WDMOlO 


LDA 


DAYNAME-1,X 


000388 




STA 


DMSG-1, Y 


000389 




DEX 




000390 




DEY 




000391 




BNE 


WDMOlO 


000392 


* 






000393 




LDA 


DATETIME+7 ;SET UP DATE 


000394 




LDX 


DATETIME+6 


000395 




STA 


DMSG+6 


000396 




STX 


DMSG+5 


000397 


* 






000398 




LDA 


DATETIME+5 ;SET UP MONTH 


000399 




AND 


#$0F 


000400 




LDX 


DATETIME+4 
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000401 


CPX 


#$31 




000402 


BCC 


WDM020 




000403 


ADC 


#9 




000404 


WDM020 STA 


WTEMP 




000405 


ASL 


A 




000406 


ADC 


WTEMP 




000407 


TAX 






000408 


LDY 


#3 




000409 


WDM030 LDA 


MONNAME- 1 , X 




000410 


STA 


DMSG+7 , Y 




000411 


DEX 






000412 


DEY 






A A A yi T 

00041J 


BNE 


WDMO 3 




000414 








000415 


LDA 


DATETIME+3 


; SET UP YEAR 


A A A yi 1 

000416 


LDX 


DATETIME+2 




000417 


STA 


DMSG+13 




000418 


STX 


DMSG+12 




000419 








000420 


LDA 


DATETIME+10 


; SET UP HOUR 


000421 


LDX 


DATETIME+09 




AAA fl AO 

000422 


STA 


DMSG+17 




A A A yi A 

00042 J 


STX 


DMSG+16 




000424 








000425 


LDA 


DATETIME+12 


; SET UP MINUTE 


000426 


LDX 


DATETIME+11 




000427 


STA 


DMSG+20 




000428 


STX 


DMSG+19 




000429 








AAA A OA 

000430 


LDY 


#DMSGL 


; PRINT DATE & TIME 


AAA A O T 

000431 


WDMO 5 LDA 


DMSG-1, Y 




AAA A OA 

000432 


ORA 


#$80 




000433 


STA 


DMSGADR-1, Y 




000434 


DEY 






000435 


BNE 


WDMO 5 




000436 








000437 


* PRINT COPYRIGHT MESSAGE 






000438 








000439 


WDMO 40 LDY 


#CMSGL 




000440 


WCMOlO LDA 


CMSG-1, Y 




000441 


STA 


CMSGADR-1, Y 




000442 


DEY 






000443 


BNE 


WCMOlO 




000444 


RTS 






000445 


PAGE 






000446 


REP 


100 




000447 


* 






000448 


* WELCOME - DATA DECLARATIONS 




000449 


* 






000450 


REP 


100 




A A A yi C T 

000451 


MSB 


ON 




000452 


AMSG ASC 


"APPLE ///" 




000453 


AMSGL EQU 


*-AMSG 




000454 


AMSGADR EQU 


40-AMSGL/2+$4A8 




000455 


MSB 


OFF 




000456 


SMSGADR EQU 


$5A8 




000457 


DMSG ASC 


"DAY, DD-MON-YY HH 


:MM" 


000458 


DMSGL EQU 


*-DMSG 




000459 


DMSGADR EQU 


40-DMSGL/2+$6A8 




000460 


DAYNAME ASC 


"SUNMONTUEWEDTHUFRISAT" 


A A A yi T 

0004 61 


MONNAME ASC 


" JANFEBMARAPRMAY JUN 




0004 62 


ASC 


" JULAUGSEPOCTNOVDEC 




0004 63 


MSB 


ON 




0004 64 


CMSG ASC 


" (C) 1980, 1981, 1982 


BY APPLE COMPUTER INC." 


0004 65 


CMSGL EQU 


*-CMSG 




A A A yi ^ 

000466 


CMSGADR EQU 


40-CMSGL/2+$7D0 




AAA A ^ ^ 

000467 


MSB 


OFF 




A A A yi ^ n 

000468 


PAGE 






A A A yi ^ A 

000469 


REP 


100 




000470 


* 






000471 


* SOS SYSTEM CALLS (1) 






000472 








000473 


REP 


100 




000474 


* OPEN (PATHNAME. IN, REFNUM.OUT, OPENLIST.IN, 


OPENCNT.IN) ** (ACCESS 


000475 


REP 


100 




000476 


OPEN EQU 


$C8 




000477 


* 






000478 


OPEN.PARMS DEB 


$4 




000479 


DW 


PATH 




000480 


OPEN.REF DFB 


$0 




000481 


DW 


OPEN. LIST 





(ACCESS. IN, PAGES. IN, SYSBUF.IN) 
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000482 
000483 
000484 
000485 
000486 
000487 
000488 
000489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000508 
000509 
000510 
000511 
000512 
000513 
000514 
000515 
000516 
000517 
000518 
000519 
000520 
000521 
000522 
000523 
000524 
000525 
000526 
000527 
000528 
000529 
000530 
000531 
000532 
000533 
000534 
000535 
000536 
000537 
000538 
000539 
000540 
000541 
000542 
000543 
000544 
000545 
000546 
000547 
000548 
000549 
000550 
000551 
000552 
000553 
000554 
000555 
000556 
000557 
000558 
000559 
000560 
000561 
000562 



OPEN. LIST 

PATH 
I. LABEL 
D. LABEL 

* READ 



DFB 
DFB 
DW 
DS 
ASC 
ASC 
REP 

(REFNUM.IN, BUFFER. 
REP 
EQU 



READ. FARMS 
READ.REF 
READ.BUF 
READ. BYT 

READ . BYTRD 

* CLOSE (REFNUM 



DFB 
DFB 
DW 
DW 

DW 

REP 

IN) 

REP 

EQU 



CLOSE . FARMS 
CLOSE. REF 



* FIND.SEG 



SEGMENTl 

SEGSRCH 

SEGFGCNT 



DFB 
DFB 
REF 

(SRCHMODE. IN, 
REP 
EQU 

DFB 

DFB 

DW 

DW 

DW 

DFB 

PAGE 

REP 



$4 

$0,$4 
SYSBUF . F 
$40 

"SOS NTRF" 
"SOS DRVR" 

100 

IN, BYTES . IN, 
100 
$CA 

$4 
$0 

RDBUF.F 

$FFFF-FILE+1 

$0 

100 



100 
$CC 

$1 

$0 
100 
PAGES . IN, 
100 

$41 

$6 

$0,$3 
$0000 
$0 
$0 

$0 

100 



PATHNAME BUFFER 
FILE LABELS 



BYTESREAD.OUT) 



SEGID.IN, BASE. OUT, LIMIT. OUT, SEGNUM.OUT) 



; FIND.SEG (SRCHMODE, SEGID, FAGECT, BASE, LIMIT, SEGNUM) 



SOS SYSTEM CALLS (2) 



* REQUEST. SEG 

REQSEG 

SEGMENT 
SEGBASE 
SEGLIM 
SEGID 



REF 
REF 
(BASE. IN, 
REF 
EQU 

DFB 
DFB 
DFB 
DFB 
REF 



100 
100 
LIMIT. IN, 
100 
$40 

$4 

$F,$0 
$F, $1D 
$0,$0 
100 



SEGID.IN, SEGNUM.OUT) 



; REQUEST SEG FARM LIST 



* SET. PREFIX (FREFIXFATH.IN) 



SETPREFIX 
PRE FX. FARMS 



PREFX.PATH 



REP 
EQU 
DFB 
DW 
DFB 
ASC 
REF 
TIME. OUT) 
REF 
EQU 

DFB 

DW 

ASC 

PAGE 

REF 



* END OF SOSLDR CODE 
* 

REP 
EQU 
DS 
DS 
EQU 
EQU 
REF 

* SOS INTERPRETER FILE 

REP 

I. FILE EQU 
I.HDR.CNT EQU 



100 
$C6 
$1 

PREFX.PATH 

$3 

' .Dl' 

100 

100 

$63 



DATETIME 

"YYYYMMDDWHHMMSSMMM" 



SLOP 

INITMODULE 

LDREND 

FILE 



100 



100 

>$F8-* 
SLOP 
$200 
* 

*-$2000+$400 
100 

100 
FILE 

I.FILE+$8 



KERNEL'S INIT MODULE RESIDES HERE 
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000563 






REP 


100 


000564 




SOS DRIVER FILE 




000565 






REP 


100 


000566 


D 


FILE 


EQU 


FILE 


000567 


D 


HDR.CNT 


EQU 


D.FILE+$8 


A A A C ^ d 

000568 


D 


DRIVES 


EQU 


D.HDR.CNT+$2 


A A A C /'A 


D 


CHRSET 


EQU 


D . DRIVES+$2+$10 


000570 


D 


KYBD 


EQU 


D . CHRSET+$10+$400 


000571 






REP 


100 


000572 










000573 






LST 


ON 


000574 


ZZEND 


EQU 


* 


000575 


ZZLEN 


EQU 


ZZEND-ZZORG 


000576 


* 








000577 


NE 


ZZLEN- 


LENLODR 


000578 






FAIL 


2,"S0S0RG FILE IS INCORRECT FOR SOS 


000579 






FIN 




000580 


* 








000581 










000582 


************************************************************************* 


000583 


* 


END OF APPLE 


/// SOS 


1.3 SOURCE CODE FILE: SOSLDR.F.SRC 


000584 


************************************************************************* 


000585 











End of File — Lines: 585 Characters: 15585 
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FILE: "SOS. SOSLDR. SRC. TEXT" 



000001 

000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



*********************************************************** 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR. SRC 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



******** 



*^******* 



SBTL 


"SOS 1.1 SOS 


LOADER" 


REL 






ORG 


$1E00 




EQU 


* 




MSB 


OFF 




REP 


100 




COPYRIGHT (C) 


APPLE COMPUTER 


INC. 1980 



ALL RIGHTS RESERVED 
100 



SOS KERNEL LOAD S MEMORY POINTS 



MODULE 



SOSLDR 

INIT 

SYSGLOB 



BFM 

<PATCH> 

OPRMSG 

IPL 

UMGR 

DISK3 

SYSERR 

DEVMGR 

SCMGR 

FMGR 

CFMGGR 

BUFMGR 
MEMMGR 
<END> 



* SOS LOADER 



* SOURCE FILES: SOSLDR. SRC, 



START 


END I/O 


ROM 


SOS BLOAD 


SIZE 


lEOO - 


28F7 




2000 


0CF8 


28F8 - 


2AA9 




2AF8 


[01B2 


18FC - 


1A03 




2CF8 




BITMAPS 








B800 - 


BBFF 




2E00 


03FF 


BCOO - 


DE62 




3200 


2263 


DE63 - 


DE6A 




5463 


0008 


DE6B - 


E48A X 




546B 


015A 


DFC5 - 


E48F X 


X 


55C5 


04CB 


E490 - 


E89D X 


X 


5A8B 


040E 


E899 - 


EE03 X 


X 


5E99 


056B 


EE04 - 


EED8 X 




64D9 


00D5 


EED9 - 


F05D 




64D9 


0185 


F05E - 


F2F3 




665E 


0295 


F2F4 - 


F354 




68F4 


0061 


F355 - 


F551 




6955 


OlFD 


F552 - 


F86D 




6B52 


031C 


F86E - 


FFBE 




6E6E 


0751 


FFBE 










REP 


100 








(VERSION =1.10 








(DATE 


= 8/04/81 









SOSLDR. A. SRC, SOSLDR. B . SRC, SOSLDR. C . SRC, 
SOSLDR. D. SRC, SOSLDR. E. SRC, SOSLDR. F. SRC 



FUNCTION: 

MOVES AND INITIALIZES SOS KERNEL, READS INTERPRETER FROM DISK, READS CHARACTER SET TABLE, 
KEYBOARD TABLE AND DRIVERS FROM DISK, INITIALIZES ALL DRIVERS AND THEN JUMPS TO INTERPRETER 
ENTRY POINT. 

CALLED BY: 

SOSBOOT 7.0 WITH KERNEL FILE LOADED AT $1 : lEOO . 9FFF (MAX) 
WHERE: $I=INTERPRETER BANK (HIGHEST BANK IN SYSTEM) 

CALLS : 

INTERPRETER ENTRY POINT (FIRST BYTE OF INTERPRETER CODE) 

DOCUMENTS : 

SOS ERS APPENDICES - XX/XX/81 

APPLE III I/O SYSTEM PROGRAMMERS GUIDE - DEC-15-80 

CONSTRAINTS : 

INTERPRETER FILE: READ INTO BANK BEGINNING AT $80 : LDREND+$400 (=BUFSIZE) . 

INTERPRETER CODE DOES NOT CONTAIN RELOCATION INFORMATION. 
MAX = 38K ($1:2000. .B7FF) 
MIN = .25K ($I:B700. .B7FF) 

DRIVER FILE: READ INTO BANK BEGINNING AT $80 : LDREND+$400 (=BUFSIZE) . 

DRIVER MODULES ARE RELOCATED AND MOVED TO THE HIGHEST AVAILABLE 32K BANK USING 

A "FIRST FIT" ALGORITHM. MODULES ARE REMOVED FROM THE FILE BEGINNING AT THE BACK 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 



AND WORKING TOWARD THE FRONT. A DRIVER MODULE CANNOT SPAN A BANK BOUNDARY. 



DRIVER FILE: MAX = 60K (APPROX) 
MIN = .25K 



DRIVER MODULE: MAX = 32K-1 
MIN < .25K 



DATA STRUCTURES: 

SOS. KERNEL FILE FORMAT 
SOS.INTERP FILE FORMAT 
SOS. DRIVER FILE FORMAT 

REP 100 
PAGE 

REP 100 



C, OV 
E, Z, B 

(l.I.S.R:W.P.R.R) 

"POSITIVE LOGIC" 
TRUE, FALSE 

REP 

ABBREVIATIONS : 
DIB 

ADIB 
<VARNAME>.P 
SDT 



6502 REGISTERS 

CARRY, OVERFLOW FLAGS IN 6502 STATUS (P) REGISTER 

ENVIRONMENT, ZERO PAGE, BANK REGISTERS (SYSTEM CONTROL REGISTERS) 

ENVIRONMENT REGISTER FLAGS . FROM LEFT TO RIGHT BITS 7 . . 
(IMHZ, I/O ENABLE, SCREEN ENABLE, RESET ENABLE, 
WRITE PROTECT, PRIMARY STACK, ROMl, ROM ENABLE) 



C="NO DRIVERS LEFT" 
SET, AND THAT ONE OR 



ALL LOGIC USED IS POSITIVE LOGIC. FOR EXAMPLE, 
INDICATES THAT NO DRIVERS ARE LEFT WHEN CARRY = 
MORE DRIVERS ARE LEFT WHEN CARRY = CLEAR. 

TRUE = SET = ON, WHILE FALSE = CLEAR = OFF. 

100 



DEVICE INFORMATION BLOCK. DEFINES A UNIQUE DEVICE THAT CAN BE LINKED 
INTO THE SYSTEM DEVICE TABLE. EACH DRIVER MODULE CONTAINS ONE OR MORE 
DIBS (DEVICES) EACH OF WHICH CAN BE "ACTIVE" OR "INACTIVE". 

"ACTIVE DIB" 

POINTER. A 3 BYTE ZERO PAGE POINTER. DON'T FORGET THE X BYTE! 

SYSTEM DEVICE TABLE. CONTAINS THE ENTRY POINT AND DIB ADDRESS OF EACH 
DEVICE CONFIGURED INTO THE SYSTEM, (USED BY THE DEVICE MANAGER) . 

100 

SOSLDR.A.SRC 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SOSLDR.SRC 

************************************************************************* 



End of File 



Lines: 131 Characters: 4487 
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FILE: "SOS. SOSORG. TEXT" 



000001 

000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SOSORG 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



REP 100 
SOS KERNEL MODULE ORIGINS 



ORGLODR EQU 

ORGINIT EQU 

ORGGLOB EQU 

ORGBFMI EQU 

ORGBFM EQU 

ORGPATCH EQU 

ORGOMSG EQU 

ORGIPL EQU 

ORGUMGR EQU 

0RGDISK3 EQU 

ORGSERR EQU 

ORGDMGR EQU 

ORGSCMGR EQU 

ORGFMGR EQU 

ORGCFM EQU 

ORGBUFMG EQU 

ORGMEMMG EQU 

ORGEND EQU 
REP 

* LENGTH OF SOS MODULES 
LENLODR EQU 

LENINIT EQU 

LENBFMI EQU 

LENBFM EQU 

LENPATCH EQU 

LENOMSG EQU 

LENIPL EQU 

LENUMGR EQU 

LENDISK3 EQU 

LENSERR EQU 

LENDMGR EQU 

LENSCMGR EQU 

LENFMGR EQU 

LENCFM EQU 

LENBUFMG EQU 

LENMEMMG EQU 
REP 

* SOS BLOAD ADDRESSES 



$1E00 
$28F8 
$18FC 

$B800 
$BCOO 
$DE66 
$DE66 
$DFCO 
$E48B 
$E899 
$EE04 
$EED9 
$F05E 
$F2F4 
$F355 
$F552 
$F86E 
$FFBF 
100 

— THIS MUST AGREE 
ORGINIT-ORGLODR 

$01B2 

ORGBFM-ORGBFMI 

ORGPATCH-ORGBFM 

ORGOMSG-ORGPATCH 

ORGIPL-ORGOMSG 

ORGUMGR-ORGIPL 

0RGDISK3-0RGUMGR 

0RGSERR-0RGDISK3 

ORGDMGR-ORGSERR 

ORGSCMGR-ORGDMGR 

ORGFMGR-ORGSCMGR 

ORGCFM-ORGFMGR 

ORGBUFMG-ORGCFM 

ORGMEMMG-ORGBUFMG 

ORGEND-ORGMEMMG 

100 



ORIGIN OF SOS LOADER 

ORIGIN OF INIT 

ORIGIN OF SYSGLOB 

ORIGIN OF BFM.INIT2 S BITMAPS 

ORIGIN OF BFM 
ORIGIN OF PATCH AREA 
ORIGIN OF OPRMSG 
ORIGIN OF IPL 
ORIGIN OF UMGR 
ORIGIN OF DISK3 
ORIGIN OF SYSERR 
ORIGIN OF DEVMGR 
ORIGIN OF SCMGR 
ORIGIN OF FMGR 
ORIGIN OF CFMGR 
ORIGIN OF BUFMGR 
ORIGIN OF MEMMGR 
END MARKER 



ZZLEN FOR 


EACH MODULE 


LENGTH 


OF 


SOS LOADER 


LENGTH 


OF 


INIT 


LENGTH 


OF 


BFM.INIT2 S BITMAPS 


LENGTH 


OF 


BFM 


LENGTH 


OF 


PATCH AREA 


LENGTH 


OF 


OPRMSG 


LENGTH 


OF 


IPL 


LENGTH 


OF 


UMGR 


LENGTH 


OF 


DISK3 


LENGTH 


OF 


SYSERR 


LENGTH 


OF 


DEVMGR 


LENGTH 


OF 


SCMGR 


LENGTH 


OF 


FMGR 


ORIGIN 


OF 


CFMGR 


LENGTH 


OF 


BUFMGR 


LENGTH 


OF 


MEMMGR 



BLALODR 


EQU 


$2000 


BLAINIT 


EQU 


BLALODR+LENLODR 


BLAGLOB 


EQU 


$2CF8 


BLABFMI 


EQU 


$2E00 


BLABFM 


EQU 


$3200 


BLAPATCH 


EQU 


BLABFM+LENBFM 


BLAOMSG 


EQU 


BLAPATCH+LENPATCH 


BLAIPL 


EQU 


BLAOMSG+LENOMSG 


BLAUMGR 


EQU 


BLAIPL+LENIPL 


BLADISK3 


EQU 


BLAUMGR+LENUMGR 


BLASERR 


EQU 


BLADISK3+LENDISK3 


BLADMGR 


EQU 


BLASERR+LENSERR 


BLASCMGR 


EQU 


BLADMGR+ LENDMGR 


BLAFMGR 


EQU 


BLASCMGR+LENSCMGR 


BLACFM 


EQU 


BLAFMGR+LENFMGR 


BLABUFMG 


EQU 


BLACFM+LENCFM 


BLAMEMMG 


EQU 


BLABUFMG+LENBUFMG 




REP 


100 



BLOAD 


ADDRESS 


OF 


SOS LOADER 


BLOAD 


ADDRESS 


OF 


INIT 


BLOAD 


ADDRESS 


OF 


SYSGLOB 


BLOAD 


ADDRESS 


OF 


BFM.INIT2 S BITMAPS 


BLOAD 


ADDRESS 


OF 


BFM 


BLOAD 


ADDRESS 


OF 


PATCH AREA 


BLOAD 


ADDRESS 


OF 


OPRMSG 


BLOAD 


ADDRESS 


OF 


IPL 


BLOAD 


ADDRESS 


OF 


UMGR 


BLOAD 


ADDRESS 


OF 


DISK3 


BLOAD 


ADDRESS 


OF 


SYSERR 


BLOAD 


ADDRESS 


OF 


DEVMGR 


BLOAD 


ADDRESS 


OF 


SCMGR 


BLOAD 


ADDRESS 


OF 


FMGR 


BLOAD 


ADDRESS 


OF 


CFMGR 


BLOAD 


ADDRESS 


OF 


BUFMGR 


BLOAD 


ADDRESS 


OF 


MEMMGR 



END OF APPLE 



3S 1.3 S0URC3 CODE FILE: SOSORG 



End of File 



Characters: 3776 
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FILE: "SOS.SWAPOUT.IN.TEXT" 



000001 

000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SWAPOUT . IN 

* ASSEMBLER: APPLE ] [ 6502 ASSE^ELER from APPLE COMPUTER TOOLKIT 

SWAPOUT EQU * 

* 

* SWAP OUT A VOLUME LOGGED ON A DEVICE 

* INPUT ARGUMENT: DEVICE NUMBER "A" 

* (STORED AS "DEVNUM") 

* OUTPUT ARGUMENT: NONE 

* CONDITION CODE: CARRY SET USER DID NOT COMPLY WITH REQUEST 

* SAVE VCBPTR, FCBPTR, DEVNUM ON STACK 

* 1) FIND UNSWAPPED VOLUME IN VCB 

* 2) IF DIRTY BIT MAP FOR THIS VOLUME THEN DO 

* IF NOT ONLINE, REQUEST USER TO INSERT 

* IF REQUEST DENIED, UNCONDITIONALLY CLOSE ALL FILES ON THIS VOLUME AND RTS 

* IF ONLINE, UPDATE AND RELEASE BIT MAP 

* DOEND 

* 3) SWAP IT (MARK VCBSWAP FIELD $80, MARK ALL FILES ON THIS VOLUME WITH SWAP MARK $8X WHERE X=VCB ENTRY) 

* "VCB ENTRY" DEFINED AS: HIGH ORDER NIBBLE OF LOW ORDER BYTE OF ENTRIES VCB ADDRESS 

* RESTORE VCBPTR, FCBPTR 

* RTS 



TAX 
JSR 
STX 

JSR 
BCS 
LDY 
LDA 
BPL 
LDA 
LDX 
CMP 
BEQ 
LDX 
CMP 
BEQ 
JMP 
LDA 
BPL 
JSR 
BCC 
JSR 
BCC 
JSR 
JSR 
SEC 
RTS 
LDX 
JSR 
LDA 
LSR 
LSR 
LSR 
LSR 
SEC 
ORA 
PHA 
JSR 
PLA 
LDY 
STA 
JSR 
CLC 
RTS 
LDA 
STA 
BEQ 



EQU 



SAVECBS 
DEVNUM 

DEWCB 
SORTS 
tVCBSTAT 
(VCBPTR) , Y 
UNLOG 
DEVNUM 
#0 

BMADEV, X 
FDIRBM 

#6 

BMADEV, X 

FDIRBM 

MARKSWAP 

BMASTAT,X 

MARKSWAP 

VERFYVOL 

VONLINE 

USRREQ 

GETVOL 

CLOSEU 

RESTCBS 



DEVNUM 

UPBMAP 

VCBPTR 

A 

A 

A 

A 

#$80 

FCBSCAN 

#VCBSWAP 
(VCBPTR) , Y 
RESTCBS 



SAVE DEVICE NUMBER 
PERMANENTLY 

FIND MATCHING UNSWAPPED ACTIVE VCB ENTRY (BY DEVNUM) 
NO FIND — RETURN WITHOUT ERROR 

GET STATUS OF FILES ON THIS VOLUME 

IF NO OPEN FILES, JUST THROW VOLUME AWAY 

DIRTY BM EXIST ON THIS VOLUME? 

IN BIT MAP "A"? 

BRANCH IF YES 

BIT MAP HEADER TABLE SIZE 

IN BIT MAP "B"? 

BRANCH IF YES 

NO NEED TO WRITE BIT MAP 

IS BIT MAP DIRTY? 

BRANCH IF NOT 

IS THE CORRECT VOLUME ON LINE NOW? 
BRANCH IF YES 

OTHERWISE, REQUEST USER INSERTION 
AND VERIFY IT AGAIN 

USER SAID "NO": UNCONDITIONALLY CLOSE VOLUME 



ERROR RETURN TO CALLER 

UPDATE THE 

DIRTY BIT MAP 

CALCULATE 

SWAP BYTE 

AND 

MARK ALL FILES 
BELONGING TO THIS VOLUME 
AS SWAPPED OUT 

; SAVE SWAP BYTE 

; MARK VCBSWAP 
; BYTE 



RESTORE FCBPTR, VCBPTR, DEVNUM 



SUCCESSFUL SWAP OUT 



#0 

VCB,X 
SORTS 



UNLOG VOLUME 

SWAP THE EASY WAY! 



(BRANCH ALWAYS) 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
POINT) 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
TWICE. 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 



* UNSWAP A VOLUME AND ALL ITS FILES 
* 

* INPUT ARGUMENT: VOLUME NAME (VCBPTR) 

* OUTPUT ARGUMENT: NONE 

* CONDITION CODE: CARRY SET : USER DID NOT COMPLY WITH REQUEST 
* 

* SAVE VCBPTR, FCBPTR ON STACK 

* 1) FIND SWAPPED VOLUME IN VCB, IF NOT FOUND, THEN RTS. 

* 2) IF ANOTHER UNSWAPPED VOLUME ON DEVICE, THEN SWAP IT 

* 3) VERIFY UNSWAPPED VOLUME, IF NOT OK THEN REQUEST INSERTION 

* 4) UNMARK VCB'S AND FCB'S 

* RTS 



RESTCBS 
* NOTICE 



JSR 


SAVE CBS 


SAVE FCB, VCB POINTERS, DEVNUM 


LDY 


#VCBNML 


MAKE SURE VOLUME 


LDA 


(VCBPTR) , Y 


IS AT LEAST OPEN 


BEQ 


USRTS 


BRANCH IF NOT RIGHT BACK TO CALLER 


LDY 


tVCBSWAP 


SEE IF 


LDA 


(VCBPTR) , Y 


CURRENTLY SWAPPED 


BEQ 


USRTS 


IF NOT, RETURN IMMEDIATELY TO CALLER 


LDY 


#VCBDEV 


SAVE DEVICE NUMBER 


LDA 


(VCBPTR) , Y 




STA 


DEVNUM 




PHA 




SAVE DEVNUM AGAIN (SWAPOUTX TRASHES DEVNUM ON RETURN) 


JSR 


SWAPOUTX 


AND MAKE SURE ANY CURRENT ACTIVE VOLUME IS SWAPPED OUT (NOTICE ENTRY 


PLA 




RECALL CURRENT DEVICE NUMBER 


STA 


DEVNUM 


AND SAVE IT TO ITS PROPER PLACE 


JSR 


VERFYVOL 


VERIFY THE CURRENT VOLUME MOUNTED 


BCC 


UNMARK 


IF THE RIGHT ONE, GO MARK IT AS UNSWAPPED 


JSR 


USRREQ 


ELSE REQUEST USER TO INSERT 


BCC 


SIl 


USER SAID 'OK' 


JSR 


CLOSEU 


OTHERWISE UNCONDITIONALLY CLOSE 


JSR 


RESTCBS 




SEC 






RTS 






LDY 


# VCB SWAP 


FETCH 


LDA 


(VCBPTR) , Y 


VOLUME 


PHA 




SWAP BYTE 


LDA 


#0 


BUT CLEAR 


STA 


(VCBPTR) , Y 


VOLUME SWAP 


PLA 






CLC 




"UNSWAPPED" 


JSR 


FCBSCAN 




LDA 


DEVNUM 


MAKE SURE BIT MAPS 


JSR 


CLEARBMS 


ARE MARKED AS INVALID ON THIS DEVICE 


JSR 


RESTCBS 


RESTORE VCB, FCB PTRS 


CLC 




NO ERRORS 


RTS 






DS 


5 


A RARE EMBEDDED TEMP SAVE AREA, USED ONLY BY . . . 


EQU 




SAVE FCBPTR, VCBPTR IN A TEMP SAVE AREA 


LDA 


VCBPTR 




STA 


SAVEPTRS 




LDA 


VCBPTR+1 




STA 


SAVEPTRS+1 




LDA 


FCBPTR 




STA 


SAVEPTRS+2 




LDA 


FCBPTR+1 




STA 


SAVEPTRS +3 




LDA 


DEVNUM 




STA 


SAVEPTRS +4 




RTS 






EQU 


* 


RESTORE FCBPTR, VCBPTR 


EXISTS 


A SEQUENCE OF CALLS (SWAPIN, WHICH MAY CALL SWAPOUT) THAT JSR'S TO SAVECBS ONCE BUT JSR'S RESTCBS 


LDA 


SAVEPTRS 




STA 


VCBPTR 




LDA 


SAVEPTRS+1 




STA 


VCBPTR+1 




LDA 


SAVEPTRS+2 




STA 


FCBPTR 




LDA 


SAVEPTRS +3 




STA 


FCBPTR+1 




LDA 


SAVEPTRS +4 




STA 


DEVNUM 




RTS 
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000156 


* MARK ALL FILES BELONGING TO A VOLUME 




000157 


* AS SWAPPED- 


IN OR SWAPPED-OUT. 




000158 


* 








000159 


* INPUT ARGS 


DEVNUM — DEVICE NUMBER OF MOUNTED 


VOLUME 


000160 


* 


A REGISTER 


- SWAP BYTE 




000161 


* 


CARRY — CARRY FLAG SET MEANS SWAP 


OUT; ELSE SWAP IN 


000162 


* 








000163 


* OUTPUT ARGS 


: NONE 






000164 


* GLOBALS AFFECTED: FOB, 


FCBPTR 




000165 


* REGISTER STATUS: SCRAMBLED 




000166 










000167 


FCBSCAN 


EQU 




MARK FILES BELONGING TO VOLUME AS SWAPPED 


000168 










000169 




TAX 




SAVE SWAP BYTE 


000170 




LDY 


FCBADDRH 


POINT TO 


000171 




STY 


FCBPTR+1 


BEGINNING TO FCB 


000172 




LDY 


#0 




000173 




STY 


FCBPTR 




000174 




BCS 


FCBOUT 


SWAP OUT A VOLUMES FILES 


000175 


FCBIN 


EQU 




SWAPIN A VOLUMES FILES 


000176 




JSR 


FCBFETCH 


GET NEXT ACTIVE FCB CANDIDATE 


000177 




BCS 


FCBRTS 


NO MORE FILES TO PROCESS 


000178 




LDY 


#FCBSWAP 




000179 




TXA 






OUOloU 




CMP 


( FCBPTR) , Y 


SWAP BYTES MATCH? 


000181 




BNE 


FCBINl 


BRANCH IF NOT 


000182 




LDA 


#0 




000183 




STA 


( FCBPTR) , Y 


MARK FILE AS SWAPPED IN 


000184 


FCBINl 


JSR 


NEXTFCB 


ADVANCE FCB POINTER 


000185 




BCS 


FCBRTS 


NO MORE TO LOOK AT 


OOOloD 




JMP 


FCBIN 


AND LOOK AT NEXT FILE 


000187 


* 








000188 


FCBOUT 


EQU 




SWAPPED OUT A VOLUMES FILES 


000189 




JSR 


FCBFETCH 


GET NEXT ACTIVE FILE IN FCB 


000190 




BCS 


FCBRTS 


NO MORE FILES — RETURN TO USER 


000191 




LDY 


#FCBSWAP 


COMPARE 


000192 




LDA 


( FCBPTR) , Y 




000193 




BNE 


FCBOUTl 


ALREADY SWAPPED OUT 


000194 




TXA 






000195 




STA 


(FCBPTR) , Y 


MARK AS SWAPPED 


000196 


FCBOUTl 


JSR 


NEXTFCB 


ADVANCE FCB POINTER 


000197 




BCS 


FCBRTS 




A A A 1 AO 

OUOl 9o 




JMP 


FCBOUT 


SWAP OUT NEXT FILE 


000199 


* 








000200 


FCBRTS 


RTS 






000201 


FCBFETCH 


EQU 




GET NEXT ACTIVE FILE FROM FCB 


000202 


* X REGISTER 


MUST NOT BE 


DISTURBED 




000203 


* USES FCBPTR 






000204 




LDY 


ffFCBDEVN 


MAKE 


000205 




LDA 


(FCBPTR) , Y 


SURE DEVICE 


000206 




CMP 


DEVNUM 


MATCHES 


A A A A A ^ 

0U02U7 




BNE 


NEXTFCB 




000208 




LDY 


tFCBREFN 


MAKE SURE FILE IS ACTIVE 


000209 




LDA 


(FCBPTR) , Y 




000210 




BEQ 


NEXTFCB 


BRANCH IF NOT 


000211 




CLC 






000212 




RTS 




RETURN WITH CARRY CLEAR SHOWING AN ACTIVE 


000213 


NEXTFCB 


LDA 


FCBPTR 




000214 




CLC 






000215 




ADC 


#$20 


FCB ENTRY SIZE 


A A A A T 

000216 




STA 


FCBPTR 




000217 




BCC 


FCBFETCH 


BRANCH IF NO PAGE CROSS 


000218 




LDA 


FCBPTR+1 




000219 




INC 


FCBPTR+1 


SECOND PAGE 


000220 




CMP 


FCBADDRH 




000221 




BEQ 


FCBFETCH 


LOOK AT PAGE TWO 


000222 


NEXTEND 


SEC 






000223 




RTS 




SHOW NO MORE FILES TO LOOK AT 


000224 


USRREQ 


EQU 


* 


OPERATOR CONSOLE MESSAGE INTERFACE 


000225 


* PRODUCES A 


MESSAGE REQUESTING 




000226 


* THE SYSTEM 


OPERATOR TO 


MOUNT THE VOLUME 




n n o o T 
UU Uzz / 


* SPECIFIED BY "VCBPTR" ON DEVICE SPECIFIED 




000228 


* BY DEVNUM. 


THIS MODULE 


INSISTS 




000229 


* UPON THE CORRECT OPERATOR ACTION 




000230 


* UPON THREE 


FAILURES TO 


COMPLY, 




000231 


* THE MODULE 


WILL SIGNIFY 


FAILURE WITH 




000232 


* CARRY SET. 


IF THE CORRECT ACTION IS TAKEN, 




000233 


* CARRY WILL 


BE RETURNED 


CLEAR 




000234 










000235 


* INPUT ARGS 


VOLUME NAME 


(VCBPTR) 




000236 




DEVICE NUMBER (DEVNUM) 
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000237 














000238 


* OUTPUT 


ARCS 


CC - OPERATOR COMPLIED WITH REQUESTED ACTION 


000239 


* 






CS = OPERATOR COULDN'T/DIDN'T COMPLY 


000240 


* 












000241 


* GLOBALS AFFECTED: NONE 






000242 














000243 


* STATUS 


OF 


REGISTERS: UNCERTAIN 




000244 














000245 


VNML 






EQU 


ZPGTEMP 


VOLUME NAME LENGTH 


000246 








LDY 


fVCBNML 


IF ILLEGAL VCB 


000247 








LDA 


(VCBPTR) , Y 


GET OUT QUICK 


000248 








BEQ 


NEXTEND 


BRANCH TO SEC RTS 


000249 








LDX 


#$E 


LENGTH OF NAMED AREA-1 


000250 








LDA 


#$0 


NULLS 


000251 


URl 






STA 


MDEV, X 


BOTH CLEAR 


000252 








STA 


MVOL, X 


IN ONE LOOP 


000253 








DEX 






000254 








BPL 


URl 




000255 














000256 


* DO A D 


-INFO 


TO FETCH THE 


DEVICE NAME 




000257 














000258 








LDA 


#5 


DO ALL 


000259 








STA 


$C0 


NECESSARY 


000260 








LDA 


DEVNUM 


HOUSKEEPING 


0002 61 








STA 


$C1 


TO SET UP 


0002 62 








LDA 


#>MDEV-1 


A DEVICE MANAGER CALL 


000263 








STA 


SC2 




000264 








LDA 


#<MDEV-1 




000265 








STA 


SC3 




000266 








LDA 


#$8F 


EXTEND BYTE 


000267 








STA 


$1403 




000268 








LDA 


#0 




000269 








STA 


$1402 




000270 








STA 


$04 




000271 








STA 


$05 




000272 








STA 


$06 


ZERO SUPERFLUOUS PARMS 


000273 








STA 


URDERR 


RESET FAI LURE COUNT 


000274 








JSR 


RPEATIOO 


GE T IN FO FROM BOB S CO DE 


000275 








LDA 


#$20 


" S PACE " RE S TORE D 


000276 








STA 


MDEV— 1 


RESTORED 


000277 








LDY 


#VCBNML 




000278 








LDA 


(VCBPTR) , Y 


LiiljJSIGiri (Jr VUJ-iUJXLci JSIAJXLti 


000279 








STA 


VNML 


SAVED FOR WORK 


000280 








LDA 


#0 




000281 








TAX 






000282 








LDY 


fVCBNAM 


POINT TO BEGINNING OF VOLUME NAME 


000283 


UR2 






LDA 


(VCBPTR) , Y 




000284 








STA 


MVOL, X 




000285 








INX 






000286 








INY 




VOLUME NAME MOVED 


000287 








DEC 


VNML 


TO MESSAGE BUFFER 


000288 








BNE 


UR2 


CHARACTER BY CHARACTER 


000289 


URDU 






LDX 


#>UMB 


PASS THE AREA'S ADDR 


000290 








LDY 


#<UMB 


IN X AND Y REGS, LOW, HIGH) 


000291 








JSR 


OPMSGRPLY 


HAVE MESSAGE SYSTEM PRINT IT 


000292 








JSR 


VERFYVOL 


DID THE USER COMPLY? 


000293 








BCS 


URDUl 


BRANCH IF NOT 


000294 








RTS 




n.Ali CAKKi lb CJ-iIIjAK 


000295 


URDUl 






INC 


URDERR 


COLLECT USER ERRORS 


000296 








LDA 


URDERR 




0002 97 








CMP 


#3 


ONLY THREE TRIES ALLOWED 


000298 








BCC 


URDU 


RETRY MESSAGE IF LESS THAN THREE TRIES 


000299 








RTS 




OTHERWISE RETURN WITH CARRY SET 


000300 














000301 














000302 














000303 














000304 


* 












000305 


* CLOSE 


UNCONDITIONAL 






000306 


* 












000307 


* (USER 


HAS 


REPLIED 'N' TO 


A VOLUME MOUNT REQUEST 


000308 


* CLOSE 


ALL 


FILES ON VOLUME/UNLOG VOLUME 




000309 


* 












000310 


* INPUT 


ARGUMENT : (VCBPTR) 






000311 


* OUTPUT 


ARGUMENT: NONE 






000312 


* 












000313 


CLOSEU 






EQU 


* 




000314 


VSWA 






EQU 


ZPGTEMP 


THE 'SWAP BYTE' STORED HERE 


000315 








LDY 


#VCBDEV 


FETCH 


000316 








LDA 


(VCBPTR) , Y 


THE DEVICE NUMBER 


000317 








STA 


DEVNUM 


OF THIS VOLUME & SAVE IT 
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000318 




LDY 


fVCBSWAP 


FETCH THE 


000319 




LDA 


(VCBPTR) , Y 


SWAP BYTE 


000320 




STA 


VSWA 


SAVE FOR REFERENCE, TOO 


A A O O T 

000321 




LDA 


#0 




A A A O A A 

000322 




LDY 


#VCBNML 


UNLOG THE VOLUME 


A A A O A 

000323 




STA 


(VCBPTR) , Y 


BY SETTING LEN OF VOL NAME TO ZERO 


A A A O A A 

000324 




LDY 


fVCBSWAP 




000325 




STA 


(VCBPTR) , Y 


TURN OFF SWAP FLAG 


A n A "3 O 




LDY 


FCBADDRH 


SET UP FCB SCAN FROM BEGINNING OF FCB 


000327 




STY 


FCBPTR+1 




A n A tj o o 

00032b 




LDY 


#0 




A A A O A A 

000329 




STY 


FCBPTR 




A A A O O A 

000330 


VFCBLOP 


LDY 


#FCBDEVN 


FETCH 


000331 




LDA 


(FCBPTR) , Y 


THE DEVICE 


A A A O O A 

000332 




CMP 


DEVNUM 


NUMBER AND SEE IF A MATCH 


A A A O "3 "5 
UUU JO J 




BNE 


T 7"T7/^"DT,TV'T1 

VP CdWaI 


rsKAJNCn It JNU JMAiCn 


A A A t) A 

000334 




LDY 


#FCBREFN 


SEE EVEN IF FILE OPEN 


000335 




LDA 


(FCBPTR) , Y 




000336 




BEQ 


VFCBNXT 


BRANCH IF NOT 


A n A o o ^ 
00033 / 




LDY 


#FCBSWAP 


CHECK TO SEE IF ATTACHED 


A A A O O A 

000338 




LDA 


(FCBPTR) , Y 


TO SAME VOLUME 


A A A O "D n 

000339 




CMP 


VSWA 




000340 




BNE 


VFCBNXT 


BRANCH IF NOT 


A A A O /IT 

000341 




LDY 


#FCBBUFN 


RELEASE 


000342 




LDA 


(FCBPTR) , Y 


ANY 


000343 




JSR 


RELBUF 


BUFFERS ASSOCIATED 


000344 




LDY 


#FCBSWAP 


AND CLEAR 


000345 




LDA 


#0 


THE SWAP BYTE 


000346 




STA 


(FCBPTR) , Y 




000347 




LDY 


#FCBREFN 


AND FINALLY 


A A A o yi o 

00034O 




STA 


(FCBPTR) , Y 


SAY ' CLOSED ' 


A A A O /I A 

000349 


VFCBNXT 


LDA 


FCBPTR 




A A A O C A 

000350 




CLC 






A A A t) r T 

000351 




ADC 


#$20 


FCB ENTRY SIZE 


000352 




STA 


FCBPTR 




000353 




BCC 


VFCBLOP 




000354 




LDA 


FCBPTR+1 




000355 




INC 


FCBPTR+1 


LOOK AT SECOND PAGE 


A A A O C 

000356 




CMP 


FCBADDRH 




A A A O C ^ 

000357 




BEQ 


VFCBLOP 


CHECK PAGE TWO OF FCB 


A A A O C A 

000358 




RTS 




RETURN TO USER W/O ERROR 


A A A O C A 

000359 










A A A O A 

000360 


FCBUSED 


EQU 




MARK AS FCB AS DIRTY SO 


000361 


* THE DIRECTORY 


WILL BE 


FLUSHED ON 'FLUSH' 




000362 




STY 


ZPGTEMP 




000363 




PHA 




SAVE REGS 


000364 




LDY 


#FCBDIRTY 




A A A O ^ IT 

000365 




LDA 


(FCBPTR) , Y 


FETCH CURRENT FCBDIRTY BYTE 


A A A O ^ z' 

000366 




ORA 


#FCBMOD 


MARK FCB AS DIRTY 


A A A O ^ ^ 

000367 




STA 


(FCBPTR) , Y 


SAVE IT BACK 


A A A O ^ A 

000368 




PLA 






A A A O (T n 

000369 




LDY 


ZPGTEMP 


AND RESTORE REGS 


A A A t) "^ A 

000370 




RTS 






000371 










000372 


URDERR 


DS 


1 


ERROR COUNT FOR USRREQ 


000373 










000374 










A A A O T IT 

000375 


UMB 


EQU 


* 




000376 




DFB 


$49, $6E, $73, $65, $72, $74, $20 


000377 




DFB 


$76,$6F, $6C,$75,$6D, $65 


A A A "3 "7 O 

0003 /o 




DFB 


$3A,$20 


"INSERT VOLUME: " 


000379 


MVOL 


DS 


15 




000380 




DFB 


SOD 


CR LINE TERMINATOR 


A A A O 1 

0003ol 




DFB 


S20, $20, $20, $20, $69, $6E,$2a 


A A A t) A A 

000382 




DFB 


$64, $65, $76, $69, $63, $65 


A A A O A 

000383 




DFB 


$3A,$20 


" IN DEVICE: " 


A A A O A A 

000384 


MDEV 


DS 


15 




A A A O A C 

000385 




DFB 


$0D 


CR LINE TERMINATOR 


A A A O A 

000386 




DFB 


$74, $68, $65, $6E, $20, $70, $72 


A A A "3 O "7 

0003o / 




DFB 


$65, $73, $73, $20, $74,$ 


58, $65, $20 


000388 




DFB 


$41, $4C, $50, $48, $41, $20, $4C 


000389 




DFB 


$4F, $43, $4B, $20,$6B, $65,$79 


000390 




DFB 


$20, $74, $77, $69, $63, $65 


000391 


* "THEN PRESS THE ALPHA 


LOCK KEY TWICE" 




000392 


* FOLLOWED WITH 


$FF MESSAGE TERMINATOR (HIGH BIT 


SIGNIFICANT) 


000393 




DFB 


$FF 


MESSAGE TERMINATOR (HIGH BIT) 


000394 


* 








000395 


ZZLEN 


EQU 


*-ZZORG 




000396 


ZZEND 


EQU 


* 




000397 




IFNE 


ZZLEN-LENBFM 




000398 




FAIL 


2,"S0S0RG FILE IS INCORRECT FORMBFM" 
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000399 FIN 
000400 

000401 ************************************************************************* 

000402 * END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SWAPOUT.IN 

000403 ************************************************************************* 
000404 



End of File — Lines: 404 Characters: 15080 
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FILE: "SOS. SYSERR. SRC. TEXT" 



000001 


******************************************************************** 




* 


APPLE /// SOS 


1.3 SOURCE CODE FILE: SYSERR. SRC 


000003 










000004 


* 


ASSEMBLER: APPLE ] [ 65 


32 ASSEMBLER from APPLE COMPUTER TOOLKIT 


000005 










000006 






SBTL 


"SOS 1.1 SYSTEM ERROR ROUTINES" 


000007 






REL 




000008 






INCLUDE 


SOSORG, 6,1,254 


000009 






ORG 


ORGSERR 


A A A A T A 

000010 


ZZORG 


EQU 


* 


000011 






MSB 


OFF 


000012 






REP 


60 


000013 




COPYRIGHT (C) 


APPLE COMPUTER INC. 1980 


000014 






ALL 


RIGHTS RESERVED 


000015 






REP 


60 


A A A A T 

000016 










000017 




SYSTEM ERROR 


ROUTINES 


{VERSION =1.10 ) 


000018 


* 






(DATE = 12/02/81) 


000019 


* 








000020 


* 


THIS MODULE CONTAINS THE SYSTEM ERROR AND SYSTEM FAILURE ROUTINES. 


000021 


* 








000022 






REP 


6 


000023 


* 








000024 






ENTRY 


SYSERR 


A A A A A IT 

000025 






ENTRY 


SYSDEATH 


A A A A A 

000026 


* 








000027 






EXTRN 


SERR 


A A A A A n 

000028 






EXTRN 


SDEATH . REGS 


A A A A A A 

000029 






EXTRN 


SCRNMODE 


000030 






PAGE 




000031 






REP 


60 


000032 


* 








000033 


* 


DATA DECLARATIONS 




A A A A O A 

000034 


* 








A A A A O IT 

000035 






REP 


60 


000036 


* 








A A A A O T 

000037 


E 


REG 


EQU 


$FFDF 


000038 


Z 


REG 


EQU 


$FFDO 


000039 


B 


REG 


EQU 


$FFEF 


000040 










000041 


S 


SAVE 


EQU 


$0 9 ; REGISTER SAVE AREA 


000042 


PCH . SAVE 


EQU 


$08 


A A A A A O 

000043 


PCL . SAVE 


EQU 


$07 


000044 


P 


SAVE 


EQU 


$06 


000045 


A 


SAVE 


EQU 


$05 


A A A A A /" 

000046 


X 


SAVE 


EQU 


$04 


000047 


Y 


SAVE 


EQU 


$03 


000048 


E 


SAVE 


EQU 


$02 


000049 


Z 


SAVE 


EQU 


$01 


000050 


B 


SAVE 


EQU 


$00 


000051 


* 








A A A A C A 

000052 


NMI. VECTOR 


EQU 


$FFFA 


000053 


* 








000054 


TXT . CLR 


EQU 


$C050 


A A A A C IT 

000055 


MIX.CLR 


EQU 


$C052 


A A A A r 

000056 


HIRES. CLR 


EQU 


$C056 


000057 


* 








000058 


PG2 .CLR 


EQU 


$C054 


000059 










000060 


MSGBASE 


EQU 


$7E4 


A A A A 1 

000061 


MSGBASE2 


EQU 


$BE4 


000062 


MSG 


ASC 


' SYSTEM FAILURE = $' 


000063 


MSGLEN 


EQU 


*-MSG 


000064 






PAGE 




000065 






REP 


60 


000066 


* 








000067 


* 


SYSTEM ERROR 


ROUTINE 




000068 










000069 




THIS ROUTINE 


IS CALLED 


WHEN AN ERROR CONDITION HAS BEEN 


000070 


* 


ENCOUNTERED. 


THE ERROR NUMBER IS PASSED IN THE A REG 


000071 


* 


AND THE CALL 


TO THIS ROUTINE MUST ALWAYS BE A JSR. 


000072 


* 








000073 






REP 


60 


000074 


SYSERR 


EQU 


* 


000075 


* 








000076 






STA 


SERR 
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000077 






PLA 








000078 






STA 


SDEATH . REGS+PCL . SAVE 




000079 






PLA 








000080 






STA 


SDEATH . REGS+PCH . SAVE 




000081 






SEC 








000082 






LDA 


SERR 












BNE 


SERR.EXIT 






000084 






CLC 








000085 


SERR.EXIT 




RTS 






RETURNS ONE LEVEL BEYOND CALLER 


000086 






PAGE 








000087 






REP 


60 






000088 














000089 


* SYSTEM 


DEATH 


ROUTINE 








000090 














000091 


* CALLED 


TO IMMEDIATELY 


TERMINATE EXECUTION OF THE MACHINE 


000092 


* BECAUSE 


A FATAL ERROR 


HAS BEEN DETECTED BY THE 


OPERATING 


000093 


* SYSTEM. 


THE 


ERROR CODE IS PASSED IN THE A REG 


THE 


000094 


* CALL TO 


THIS 


ROUTINE MUST ALWAYS BE A JSR. 




000095 














000096 






REP 


60 






000097 


SYSDEATH 




EQU 


* 






000098 














000099 






STA 


SDEATH. REGS+A. 


SAVE 


SAVE REGISTERS 


000100 






STX 


SDEATH. REGS+X. 


SAVE 




000101 






STY 


SDEATH. REGS+Y. 


SAVE 




000102 






PHP 








000103 






PLA 








000104 






STA 


SDEATH. REGS+P. 


SAVE 




000105 






TSX 








000106 






STX 


SDEATH. REGS+S. 


SAVE 




000107 






LDA 


E.REG 






000108 






STA 


SDEATH. REGS+E. 


SAVE 




000109 






LDA 


Z.REG 






000110 






STA 


SDEATH. REGS+Z. 


SAVE 




000111 






LDA 


B.REG 






000112 






STA 


SDEATH. REGS+B. 


SAVE 




000113 






PLA 








000114 






STA 


SDEATH . REGS+PCL . SAVE 




000115 






PLA 








000116 






STA 


SDEATH . REGS+PCH . SAVE 




000117 














000118 






SEI 






TURN OFF INTERRUPTS 


000119 






CLD 








000120 














000121 






LDX 


#0 




SAVE SYSTEM STACK PAGE IN PAGE $17 


000122 


SD005 




LDA 


$100, X 






000123 






STA 


$1700, X 






000124 






DEX 








000125 






BNE 


SD005 






000126 














000127 






LDA 


$C059 




ENSURE SILENTYPE PORT SHUT DOWN 


A A A 1 on 

UUOlzB 






LDA 


$CODD 






000129 






LDA 


$CODF 






000130 






LDA 


$C05F 






000131 






LDA 


$C05A 






000132 














000133 






LDA 


$C040 




SOUND BELL 


000134 














000135 






LDA 


#$74 




ENSURE RESET LOCK OFF S RAM SWITCHED IN 


000136 






STA 


E.REG 






000137 














000138 






LDA 


TXT . CLR 




SWITCH TO 40 COL BSW DISPLAY MODE 


000139 






LDA 


MIX.CLR 






000140 






LDA 


HIRES. CLR 






000141 






LDA 


PG2 . CLR 




& SELECT PAGE 1 


000142 














000143 






LDA 


#$02 






000144 






BIT 


SCRNMODE 






000145 






BVS 


SD015 




IF GRAPHICS MODE THEN KEEP 40 COL MODE 


000146 






BEQ 


SD015 




IF 40 COL MODE THEN KEEP 


000147 






LDA 


MIX.CLR+1 




ELSE SWITCH TO 80 COL DISPLAY MODE 


000148 














000149 






LDX 


#MSGLEN+1 




ENSURE BKGRND SET TO INVERSE SPACES 


000150 






LDA 


#$20 




SPACE CHAR W/INVERSE 


000151 


SDOlO 




STA 


MSGBASE2-1,X 






000152 






DEX 








000153 






BPL 


SDOlO 






000154 


* 












000155 


SD015 




LDX 


#0 




MOVE MSG TO TEXT SCREEN 


000156 


SD020 




LDA 


MSG, X 






000157 






STA 


MSGBASE-1,X 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000195 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 



SDIOO 



I NX 
CPX 
BNE 

LDA 
CLC 

LSR 
LSR 
LSR 
LSR 
JSR 
INX 
LDA 
AND 
JSR 

LDA 
STA 
LDA 
STA 



JMP 
REP 
RTI 



* PRINT SUBROUTINE 



EQU 
CMP 
ECS 
ADC 

BCC 
ADC 
STA 
RTS 



PRNTIOO 
PRNTllO 



ZZEND 
ZZLEN 



LST 

EQU 

EQU 

IFNE 

FAIL 

FIN 



tMSGLEN 
SD020 

SDEATH . REGS+A . SAVE 

A 
A 
A 
A 

PRINT 

SDEATH .REGS+A . SAVE 

#$0F 

PRINT 

#>SD100 
NMI .VECTOR 
#<SD100 
NMI .VECTOR+1 



60 



DISPLAY ERROR CODE (2 HEX DIGITS) 



FIRST DIGIT 



; SECOND DIGIT 



HANG UNTIL REBOOT (CTRL/RESET) 

NMI VECTOR POINT HERE TO MASK THEM OUT 



#$A 

PRNTIOO 
#$30 

PRNTllO 
#336 

MSGBASE-1, 



ON 
* 

ZZEND-ZZORG 

ZZLEN-LENSERR 

2,"S0S0RG 



"0"-"9" 
ALWAYS TAKEN 
"A"-"F" 



FILE IS INCORRECT FOR SYSERR" 



*r** ***************** 



* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: SYSERR. SRC 

************************************************************************* 



End of File 



Lines: 206 Characters: 5264 
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FILE: " SOS. SYSGLOB. SRC. TEXT" 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



************************************************************************* 

* APPLE /// SOS 1.3 SOURCE CODE FILE: SYSGLOB. SRC 



******** 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



SBTL 
REL 
ORG 
MSB 
REP 



"SOS 1.1 GLOBAL EQUATES" 



$18FC 
OFF 
60 

COPYRIGHT (C) APPLE COMPUTER INC. 1980 
ALL RIGHTS RESERVED 
REP 60 

SOS SYSTEM GLOBAL DATA & EQUATES 

THIS MODULE CONTAINS THE SOS JUMP TABLE, AND ALL GLOBAL 
DATA AND EQUATES. THE JUMP TABLE, AND ALL DATA THAT IS 
TO BE REFERENCED BY DEVICE HANDLERS, ARE ASSIGNED FIXED 
ADDRESSES AT THE BEGINNING OF MEMORY PAGE $19. DATA 
THAT IS ONLY REFERENCED BY SOS BEGINS $1980, BUT MAY BE 
MOVED WHENEVER SOS IS RELINKED. 



REP 

EXTRN 
EXTRN 
EXTRN 

EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 



ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

ENTRY 

ENTRY 

ENTRY 
ENTRY 
ENTRY 

ENTRY 
ENTRY 
ENTRY 

ENTRY 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

ENTRY 
ENTRY 



60 

ALLOCSIR 
DEALCSIR 
NMIDSBL 

NMIENBL 

QUEEVENT 

SELC800 

SYSDEATH 

SYSERR 

REQBUF 

GETBUFADR 

RELBUF 

NMIDBUG 

NMICONT 

COLDSTRT 



MEMSIZE 

SYSBANK 

SUSPFLSH 

NMIFLAG 

SCRNMODE 

GRSIZE 

SERR 

DBUGBRK 

KYBDNMI 

NMISPSV 

SDEATH.REGS 

SOSVER 

SOSVERL 

SZPAGE 
SXPAGE 
S SPACE 

CZPAGE 
CXPAGE 
C SPACE 

CEVPRI 

SIRTEMP 

SIRARGSIZ 

IRQCNTR 

NMICNTR 

QEVTEMP 

QEV.THIS 

QEV.LAST 

BADBRK 
BADINTl 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

ENTRY 
ENTRY 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 



ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 



PAGE 
DW 



BADINT2 

NMIHANG 

EVQOVFL 

STKOVFL 

BADSYSCALL 

DEV.OVFLOW 

MEM2SML 

VCBERR 

FCBERR 

ALCERR 

DIRERR 

TOOLONG 

BADBUFNUM 

BADBUFSIZ 

BITMAP ADR 

BADSCNUM 

BADCZPAGE 

BADXBYTE 

BADSCPCNT 

BADSCBNDS 

NODNAME 
BADDNUM 

BADPATH 

CFCBFULL 

FCBFULL 

BADREFNUM 

PATHNOTFND 

VNFERR 

FNFERR 

DUPERR 

OVRERR 

DIRFULL 

CPTERR 

TYPERR 

EOFERR 

POSNERR 

ACCSERR 

BTSERR 

FILBUSY 

NOTSOS 

BADLSTCNT 

OUTOFMEM 

BUFTBLFULL 

BADSYSBUF 

DUPVOL 

NOTBLKDEV 

LVLERR 



BADBKPG 

SEGRQDN 

SEGTBLFULL 

BADSEGNUM 

SEGNOTFND 

BADSRCHMODE 

BADCHGMODE 

BADPGCNT 

XREQCODE 

XCTLCODE 

XCTLPARM 

XNOTOPEN 

XNOTAVAIL 

XNORESRC 

XBADOP 

XIOERROR 

XNODRIVE 

XNOWRITE 

XBYTECNT 

XBLKNUM 

XDISKSW 

BACKMASK 



E1908 



; MASK BYTE FOR BACKUP BIT. 

; DISK DRIVER IS READING/WRITING (SET) ELSE NOT (RESET) 
;SYSGLOB TARGET ADDRESS 
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r\ n n 1 CO 
UUUloo 




DW 


$0100 


; AND LENGTH 






* 










UUUloU 


* SYSTEM GLOBAL DATA 








UUUIdI 


* (ACCESSIBLE TO SOS AND DEVICE HANDLERS) 


















A A A T ^ 


SYSGLOB 


EQU 








A Am 1^/1 












000165 


MEMS I ZE 


DFB 


$08 


; MEMORY SIZE = 128K 




000166 


SYSBANK 


DFB 


$02 


/SYSTEM BANK = 2 




A A A 1 

UU U i o / 


SUSPFLSH 


DFB 


$ 00 


; SYSOUT SUSPEND/FLUSH FLAG 




A A A T <~ O 


NMI FLAG 


DFB 


$00 


;NMI PENDING FLAG 




A A A T iC A 

uuuioy 




DW 


NMIEXIT 


; DEFAULT NMI VECTOR 




A A A T T A 

UUUl /u 


SCRNMODE 


DFB 


$80 


; CURRENT SCREEN MODE 




A A A T T 1 

UUUl /I 


GRSIZE 


DFB 


$00 






A A A 1 "7 

UUUl 












A nm -in 
UUUl / J 












A A A T 1 A 

UUUl /4 


* SOS JUMP 


TABLE 








000175 












A A A 1 "J 

UUUl /d 




DS 


SYSGLOB+$ 10-* , $00 


; USED BY THE MOUSE DRIVER 




000177 


USERNMI 


JMP 


NMIEXIT 


;K.r.l£iOAKU iNMl VlLClUK 




A A A T no 

UUUl /o 




JMP 


ALLOCSIR 


;ALLOCATE A SIR 




A A A T T A 

UUUl /y 




JMP 


DEALCSIR 


; DEALLOCATE A SIR 




A A A T OA 

UUUloU 




JMP 


NMIDSBL 


; DISABLE NMI 




A A A T AT 

UOOlol 




JMP 


NMIENBL 


; ENABLE NMI 




A A A 1 OA 

UUUloz 




JMP 


QUEEVENT 


; QUEUE AN EVENT 




A A A 1 'J 

UUUloo 




JMP 


SELC800 


; SELECT I/O EXPANSION ROM 




A A A 1 OA 

UUUlo4 




JMP 


SYSDEATH 


; SYSTEM DEATH 




A A A 1 C 

UUUloo 




JMP 


SYSERR 


; SOS ERROR 




A A A T 

UUUloD 




JMP 


REQBUF 


; REQUEST BUFFER 




000187 




JMP 


GETBUFADR 


;GET BUFFER'S ADDRESS 




A A A T 00 

UUUloo 




JMP 


RELBUF 


; RELEASE BUFFER 




A A A T OA 

uuuioy 




JMP 


CLRBMASK 


; VECTOR TO CLRBMASK 




A A A 1 A A 

uuuiyu 




PAGE 








A A A 1 A 1 

uuuiyi 


* 










A A A 1 AO 

UUUl yz 


* SOS DATA 


AND EQUATES 






A A A 1 A 'J 

uuuiyj 


* (ACCESSIBLE ONLY 


TO SOS) 






A A A T n A 

uuuiy4 


* 










A A A T Ac 

uuuiyo 




DS 


SYSGLOB+$80-*, $00 






A A A T Cif 

uuuiyb 


SERR 


DFB 


$00 


; SYSTEM ERROR CODE 




A A A T C1I 

uuuiy / 


* 










A A A T AO 

000198 


DBUGBRK 


NOP 




;T0 ENABLE DEBUG BREAK POINTS, 




A A A T A A 

uooiyy 




PLA 




; PATCH THESE BYTES TO 




A A A A A A 

OUUzUU 




PLA 




; JMP TO THE DEBUGGER 




A A A A 1 

UUUzUl 




RTS 








A A A A 

UUU^i Uz 


* 










A A A A 'J 

UUUzU 


KYBDNMI 


JMP 


USERNMI 






000204 




JMP 


NMIDBUG 






A A A A A C 

UUUzUo 


NMISPSV 


DFB 









A A A n c 
UUUzUb 




JMP 


NMICONT 






A A A A A"7 

UUUzU / 


NMIEXIT 


RTS 








A A A A A 

UUUzUo 


* 










A A A A A A 

UU uz u y 


* 










A A A A 1 A 

UU Uz 1 u 


SOSVER 


ASC 


"SOS 1.3 01-DEC- 


32" 




A A A A 1 1 

UUUzll 


SOSVERL 


EQU 


*-SOSVER 






A A A A T A 

UU Uz Iz 


* 










A A A A T 

UUUzl J 




ASC 


" (C) 1980, 1981 BY 


APPLE COMPUTER INC . " 




A A A A T A 

UUUzl4 


* 










A A A A T C 

UUUzlo 


E1908 


EQU 


$1908 


; ALLOCATED TO STEPHEN SMITH (MOUSE 


DRIVER) 


A A A A T 

UUUzId 


* ABOVE SET 


AND RESET 


IN DISK DRIVER 






A A A A T 

UUUzl / 


SZPAGE 


EQU 


$1800 


; SYSTEM ZERO PAGE 




A A A A T 

UUUzlo 


SXPAGE 


EQU 


$1400 


/SYSTEM EXTEND PAGE 




A A A A T A 

uuuziy 


S SPACE 


EQU 


$0100 


/SYSTEM STACK PAGE 




A A A A A A 

UUUzzU 












A A A A A 1 

UU Uzz. i 


CZPAGE 


EQU 


$1A00 


/CALLER'S ZERO PAGE 




A A A A A A 

UUUzzz 


CXPAGE 


EQU 


$1600 


/CALLER'S EXTEND PAGE 




A A A A A 

UUUz2 J 


CSPAGE 


EQU 


$1B00 


/CALLER'S STACK PAGE 




A A A A A A 

UUUzz4 


CEVPRI 


DFB 


$00 


/CALLER'S EVENT PRIORITY 




A A A A A C 

UUUzlo 


* 










A A A A A 

U0CJZ26 


SIRTEMP 


DFB 


$00 


/TEMP FOR ALLOCSIR S DEALCSIR 




M A A "7 

UUUzz / 


SIRARGSIZ 


DFB 


$00 


/ARGUMENT COUNT FOR ALLOCSIR S DEALCSIR 


n n M 1 1 


IRQCNTR 


DW 


$0000 


/FALSE IRQ COUNTER 




000229 


NMICNTR 


DW 


$0000 


/COUNTER FOR NMI LOCK 




000230 


QEVTEMP 


DFB 


$00 


/TEMP FOR QUEEVENT 




000231 


QEV.THIS 


DFB 


$00 


/POINTER FOR QUEEVENT 




000232 


QEV.LAST 


DFB 


$00 


/POINTER FOR QUEEVENT 




000233 


* 










000234 


SOSQUIT 


DS 


COLDSTRT 






000235 


BACKMASK 


DFB 


BACKBIT 


/ MASK USED BY BFM TO UPDATE BACKUP 


BIT 


000236 


* 










000237 


* TO CLEAR 


THE BACKUP 


BIT, A PROGRAM MUST JSR 


TO CLRBMASK THRU 1934 THEN DO A 




000238 


* SET-FILE- 


INFO WITH NO INTERVENING SOS CALLS 


. ANY SOS CALL WILL 
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000239 


* SET BACKMASK AGAIN. THIS FEATURE IS 


INTENTIONALLY LEFT UNDOCUMENTED. 


000240 


* 










000241 


CLRBMASK 




AND 


#BACKBIT 


; PURIFY 


000242 






STA 


BACKMASK 


; SET THE MASK 


000243 






RTS 




; AND BACK TO THE CALLER 


000244 






PAGE 






000245 


* 










000246 


* SYSTEM 


DEATH 


REGISTER 


SAVE AREA 




000247 


* (SYSTEM 


STACK 


MOVED TO 


$1700-$17FF) 




000248 


* 










000249 






DS 


SYSGL0B+$F6- 


*/ $00 


000250 


SDEATH.REGS 


EQU 






000251 






DFB 


$00 


;BANK 


000252 






DFB 


$00 


; ZERO PAGE 


000253 






DFB 


$00 


; ENVIRONMENT 


000254 






DFB 


$00 


; Y 


000255 






DFB 


$00 


;X 


000256 






DFB 


$00 


; A 


000257 






DFB 


$00 


; STATUS 


000258 






DW 


$00 


; PROGRAM COUNTER 


000259 






DFB 


$00 


; STACK POINTER 


000260 












000261 


* SYSTEM 


DEATH 


ERROR NUMBERS 




000262 












000263 


BADBRK 




EQU 


$01 


;BRK FROM SOS 


0002 64 


BADINTl 




EQU 


$02 


; INTERRUPT NOT FOUND 


000265 


BADINT2 




EQU 


$03 


;BAD ZERO PAGE ALLOCATION 


000266 


NMIHANG 




EQU 


$04 


; UNABLE TO LOCK NMI 


000267 


EVQOVFL 




EQU 


$05 


; EVENT QUEUE OVERFLOW 


000268 


STKOVFL 




EQU 


$06 


; STACK OVERFLOW 


000269 












000270 


BADSYSCALL 




EQU 


$07 


;DMGR DETECTED INVALID REQUEST CODE 


000271 


DEV . OVFLOV\ 




EQU 


$08 


;DMGR - TOO MANY DEVICE HANDLERS 


000272 


MEM2 SML 




EQU 


$09 


;MEMORY SIZE < 64K 


000273 


VCBERR 




EQU 


$0A 


;VOLUME CONTROL BLOCK NOT USABLE (BFMGR) 


000274 


FCBERR 




EQU 


$0B 


;FILE CONTROL BLOCK CRASHED 


000275 


ALCERR 




EQU 


$oc 


;ALLOCATION BLOCKS INVALID 


000276 


TOOLONG 




EQU 


$0E 


; PATHNAME BUFFER OVERFLOW 


000277 


BADBUFNUM 




EQU 


$0F 


; INVALID BUFFER NUMBER 


000278 


BADBUFSIZ 




EQU 


$10 


; INVALID BUFFER SIZE (=0 OR >16K) 


000279 






PAGE 






000280 












000281 


* SYSTEM 


ERROR 


NUMBERS 






000282 












000283 


* - SYSTEM 


CALL 


MANAGER 






000284 












000285 


BADSCNUM 




EQU 


$01 


;BAD SYSTEM CALL NUMBER 


000286 


BADCZPAGE 




EQU 


$02 


;BAD CALLER'S ZPAGE (MUST=$1A) 


000287 


BADXBYTE 




EQU 


$03 


;BITS 6. .4 <> 


000288 


BADSCPCNT 




EQU 


$04 


;BAD SYSTEM CALL PARM COUNT 


A A O O n 

000289 


BADSCBNDS 




EQU 


$05 


; SYS CALL PARM ADR 


A A A O A A 

0002 90 












000291 


* - DEVICE 


MANAGER 






000292 












000293 


NODNAME 




EQU 


$10 


; DEVICE NAME NOT FOUND 


000294 


BADDNUM 




EQU 


$11 


; INVALID DEV.NUM PARM 


000295 


* 










000296 


* - DEVICE 


HANDLERS (STANDARD ERRORS) 




000297 


* 










000298 


XREQCODE 




EQU 


$20 


; INVALID REQUEST CODE 


A A A A A A 

0002 99 


XCTLCODE 




EQU 


$21 


/INVALID CONTROL/STATUS CODE 


000300 


XCTLPARM 




EQU 


$22 


/INVALID CONTROL/STATUS PARM 


000301 


XNOTOPEN 




EQU 


$23 


/DEVICE NOT OPEN 


000302 


XNOTAVAIL 




EQU 


$24 


/DEVICE NOT AVAILABLE 


000303 


XNORESRC 




EQU 


$25 


/UNABLE TO OBTAIN RESOURCE 


000304 


XBADOP 




EQU 


$26 


/ INVALID OPERATION 


000305 


XIOERROR 




EQU 


$27 


/I/O ERROR 


000306 


* 










000307 


XNODRIVE 




EQU 


$28 


/NO DRIVE CONNECTED 


000308 


XNOWRITE 




EQU 


$2B 


/DEVICE WRITE PROTECTED 


000309 


XBYTECNT 




EQU 


$2C 


/BYTE COUNT <> A MULTIPLE OF 512 




XBLKNUM 




EQU 


$2D 


/ BLOCK NUMBER TOO LARGE 


000311 


XDISKSW 




EQU 


$2E 


/DISK MEDIA HAS BEEN SWITCHED 


000312 


* 










000313 


* - NOTE: 


ERROR 


CODES $30 


-$3F HAVE BEEN 


RESERVED FOR DEVICE 


000314 


* HANDLER SPECIFIC ERRORS 




000315 


* 










000316 


* 










000317 


* - FILE MANAGER 






000318 












000319 


BADPATH 




EQU 


$40 


/PATHNAME, INVALID SYNTAX 
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000320 


CFCBFULL 


EQU 


S41 


CHAR FILE CTRL BLOCK TABLE FULL 


000321 


FCBFULL 


EQU 


$42 


BLOCK FILE CTRL BLOCK TABLE FULL 


A A O O O 


BADREFNUM 


EQU 


$43 


INVALID REF.NUM PARM 


A AA O O O 

000323 


PATHNOTFND 


EQU 


$44 


PATHNAME NOT FOUND 


A A A O O A 

000324 


VNFERR 


EQU 


$45 


VOLUME NOT FOUND 


A A A O IT 

000325 


FNFERR 


EQU 


$46 


FILE NOT FOUND 


A A A O 

000326 


DUPERR 


EQU 


$47 


DUPLICATE FILE NAME ERROR 


000327 


OVRERR 


EQU 


$48 


NOT ENOUGH DISK SPACE FOR PREALLOCATION 


000328 


DIRFULL 


EQU 


$4 9 


DIRECTORY FULL ERROR 


000329 


CPTERR 


EQU 


S4A 


FILE INCOMPATIBLE SOS VERSION 


000330 


TYPERR 


EQU 


$4B 


NOT CURRENTLY SUPPORTED FILE TYPE 


A A A O O T 

000331 


EOFERR 


EQU 


$4C 


POSITION ATTEMPTED BEYOND END OF FILE 


A A A O O O 

000332 


POSNERR 


EQU 


$4D 


ILLEGAL POSITION (L.T. OR G.T. $FFFFFF) 


A A A O O 

000333 


ACCSERR 


EQU 


$4E 


FILE ACCESS R/W REQUEST CONFLICTS WITH ATTRIBUTES 


A A A O O A 

000334 


BTSERR 


EQU 


$4F 


USER SUPPLIED BUFFER TOO SMALL 


A A A O O IT 

000335 


FILBUSY 


EQU 


$50 


EITHER WRITE WAS REQUESTED OR WRITE ACCESS ALREADY 


A A A t) t) 

000336 


DIRERR 


EQU 


$51 


DIRECTORY ERROR 


A A A t) O ^ 

000337 


NOTSOS 


EQU 


$52 


NOT A SOS DISKETTE 


000338 


BADLSTCNT 


EQU 


$53 


INVALID VALUE IN LIST PARAMETER 


000339 


OUTOFMEM 


EQU 


$54 


OUT OF FREE MEMORY FOR BUFFER 


A A A O /I A 

000340 


BUFTBLFULL 


EQU 


$55 


BUFFER TABLE FULL 


A A A O /IT 

000341 


BADSYSBUF 


EQU 


$56 


INVALID SYSBUF PARAMETER 


A A A O /I O 

000342 


DUPVOL 


EQU 


$57 


SON A BITCH GOT TWO VOLUMES OF SAME ROOT NAME! ! ! 


000343 


NOTBLKDEV 


EQU 


$58 




000344 


LVLERR 


EQU 


$59 


INVALID FILE LEVEL 


000345 


BITMAPADR 


EQU 


$5A 




A n A A r 
000346 


BACKBIT 


EQU 


$20 


MASK FOR BACKUP BIT 


000347 










000348 


* - UTILITY MANAGER 






A A A O /I A 

000349 


* 








A A A O C A 

000350 


BADJMODE 


EQU 


$70 /INVALID JOYSTICK REQUEST 


A A A O C T 

000351 


* 








000352 


* - ^EMORY MANAGER 






A A A O C O 

000353 


* 








A A A t) r A 

QUO jd4 


BADBKPG 


EQU 


$E0 


INVALID BANK/PAGE PAIR 


000355 


SEGRQDN 


EQU 


$E1 /SEGMENT REQUEST DENIED 


000356 


SEGTBLFULL 


EQU 


$E2 /SEGMENT TABLE FULL 


000357 


BADSEGNUM 


EQU 


$E3 


INVALID SEGMENT NUMBER 


000358 


SEGNOTFND 


EQU 


$E4 /SEGMENT NOT FOUND 


000359 


BADSRCHMODE 


EQU 


$E5 


INVALID SEARCH MODE PARM 


000360 


BADCHGMODE 


EQU 


$E6 


INVALID CHANGE MODE PARM 


000361 


BADPGCNT 


EQU 


$E7 


INVALID PAGE COUNT PARM 


000362 




ORG 


SYSGLOB+$100 




000363 




DW 


$B800 


KERNEL TARGET ADDRESS 


000364 




DW 


$47C0 


AND LENGTH 


000365 










000366 


************************************************************************* 


000367 


* END OF APPLE 


/// SOS 1 


3 SOURCE CODE FILE: SYSGLOB.SRC 


000368 


************************************************************************* 


000369 










000370 










End of 


File — Lines: 


370 Characters: 12524 
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FILE: "SOS. TCOMP. SOS. TEXT' 



000001 ************************************************************************* 

000002 * APPLE /// SOS 1.3 SOURCE CODE FILE: TCOMP. SOS 

000004 * ASSEMBLER: APPLE ] [ 6502 ASSE^ELER from APPLE COMPUTER TOOLKIT 

000005 

000006 :TABS 17,23,40 

000007 SL4:DR1:ASM IPL.SRCl, IPL.OBJ, 6, 1 

000008 SL4:DR1:ASM UMGR.SRC,UMGR.OBJ, 6, 1 

000009 SL4:DR2:ASM DISKS . SRC, DISKS .OBJ, 6, 1 

000010 SL4:DR2:ASM SYSERR.SRC, SYSERR.OBJ, 6, 1 

000011 SL4:DR2:ASM SCMGR.SRC, SCMGR.OBJ, 6, 1 

000012 SL4:DR2:ASM FMGR. SRC, FMGR. OB J, 6, 1 

000013 SL4:DR2:ASM CFMGR. SRC, CFMGR. OBJ, 6, 1 

000014 SL4:DR2:ASM DEVMGR. SRC, DEVMGR.OBJ, 6, 1 

000015 SL4:DR2:ASM BUFMGR. SRC, BUFMGR. OBJ, 6, 1 

000016 SL4:DR2:ASM MEMMGR.A. SRC,MEMMGR.OBJ, 6, 1 
000017 

000018 ************************************************************************* 

000019 * END OF APPLE /// SOS l.S SOURCE CODE FILE: TCOMP. SOS 

000020 ********************** + * + + *********************************************** 



End of File — Lines: 20 Characters: 824 
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FILE: " SOS. UMGR. SRC. TEXT" 



000001 

000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



***************************************************************** 

* APPLE /// SOS 1.3 SOURCE CODE FILE: UMGR. SRC 



* ASSEMBLER: APPLE ] [ 6502 ASSEMBLER from APPLE COMPUTER TOOLKIT 



******** 



******** 



"SOS 1.1 UTILITY MANAGER" 

SOSORG, 6,1,254 
ORGUMGR 



SBTL 
REL 

INCLUDE 
ORG 

ORG EQU * 

MSB OFF 
REP 60 
COPYRIGHT (C) APPLE COMPUTER INC. 1980 
ALL RIGHTS RESERVED 
REP 60 
UTILITY MANAGER 

THIS MODULE HANDLES THE FOLLOWING SOS CALLS: 
SET . FENCE , GET . FENCE 
SET. TIME, GET. TIME 
JOYSTICK, COLDSTRT 

IN ADDITION, IT CONTAINS THE ROUITNE DATETIME WHICH 
PROVIDES THE DATE AND TIME FOR THE BLOCK FILE MANAGER. 



60 

UMGR 

DATETIME 

BCDBIN 

COLDSTRT 

PCLOCK 

SYSBANK 

CEVPRI 

SYSERR 

BADSCNUM 
BADJMODE 
XNORESRC 
ALLOCS IR 
DEALCSIR 

$ca 

U.TPARMX 
U.TPARMX+1 

U.TPARMX+1 
U.TPARMX+2 
U.TPARMX+1 
U.TPARMX+1 

$04 
$20 
$40 
$80 

$DF 

$FFDO 
$FFDF 
$FFEF 

35 



U.TPARMX 
U.REQCODE 
PRIORITY 
J. MODE 
J . VALUE 
TIME 
MEMORY 
* 

BIT0N2 
BIT0N5 
BIT0N6 
BIT0N7 
BIT0FF5 

Z .REG 
E.REG 
B.REG 



ENTRY 

ENTRY 
ENTRY 
ENTRY 

ENTRY 

EXTRN 
EXTRN 
EXTRN 

EXTRN 
EXTRN 
EXTRN 
EXTRN 
EXTRN 

EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 

EQU 

EQU 

EQU 

EQU 

PAGE 

REP 



* UTILITY SWITCH 



EQU 
LDA 
ORA 
STA 

LDA 
CMP 
BCS 



35 



E.REG 

#BIT0N6 

E.REG 

U . REQCODE 

lUSWCNT 

UMGRERR 



/SELECT $C000 I/O SPACE 
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000077 




ASL 


A 


000078 




TAX 




000079 




LDA 


USWTBL+1,X 


000080 




PHA 




000081 




LDA 


USWTBL, X 


000082 




PHA 




000083 




RTS 




000084 








000085 


UMGRERR LDA 


#>BADSCNUM 


000086 




JSR 


SYSERR 


000087 


* 






000088 


* 


UTILITY SWITCH TABLE 




000089 


* 






000090 


USWTBL EQU 




000091 




DW 


SET . FENCE -1 


000092 




DW 


GET . FENCE-1 


000093 




DW 


SET . TIME-1 


000094 




DW 


GET.TIME-1 


000095 




DW 


JOYSTICK-1 


000096 




DW 


COLDSTRT-1 


000097 


USWCNT EQU 


*-USWTBL/2 


000098 




PAGE 




000099 




REP 


60 


000100 


* 






000101 


* 


SET . FENCE ( IN . PRIORITY 


) SYSTEM CALL 


000102 


* 






000103 


* 


GET. FENCE (OUT. PRIORITY) SYSTEM CALL 


000104 








000105 




THESE TWO CALLS ALLOW 


THE CALLER TO EITHER RETRIEVE OR SET 


000106 


* 


THE CURRENT SYSTEM EVENT PRIORITY THRESHOLD. BY RAISING 


000107 


* 


THE FENCE, A USER MAY 


INHIBIT THE EXECUTION OF EVENTS WHOSE 


000108 


* 


PRIORITY IS EQUAL TO 


OR LESS THAN THE VALUE OF THE SYSTEM 


000109 


* 


FENCE. 




000110 


* 






000111 




REP 


60 


000112 








000113 








000114 


SET . FENCE EQU 


* 


000115 




LDA 


PRIORITY 


000116 




STA 


CEVPRI 


000117 




RTS 


; NORMAL EXIT 


000118 


* 






000119 


* 






000120 


GET . FENCE EQU 




000121 




LDA 


CEVPRI 


000122 




LDY 


#0 


000123 




STA 


(PRIORITY) , Y 


000124 




RTS 


; NORMAL EXIT 


000125 




PAGE 




000126 




REP 


60 


000127 


* 






000128 


* 


SET. TIME (IN. TIME) 




000129 


* 


GET. TIME (OUT. TIME) 




000130 


* 






000131 




THESE SYSTEM CALLS ALLOW THE USER TO SET AND READ THE 


000132 




SYSTEM'S CLOCK. THE 


TIME IS EXPRESSED AS AN EIGHTEEN 


000133 


* 


DIGIT ASCII STRING IN THE FORM "YYYYMMDDWHHMMSSMMM" . 


000134 


* 






000135 


* 


YYYY YEAR [1900-1999] 


000136 


* 


MM MONTH 


[01-12] 


000137 


* 


DD DAY 


[01-31] 


000138 




W WEEKDAY 


[1-7] 1 => SUNDAY 


000139 




HH HOUR 


[00-23] 


000140 


* 


MM MINUTE 


[00-59] 


000141 


* 


SS SECOND 


[00-59] 


000142 


* 


MMM MILLISECOND 


[000-999] 


000143 


* 






000144 


* 


THE CLOCK CHIP AUTOMATICALLY MAINTAINS THE TIME AND 


000145 


* 


DATE FROM MILLISECONDS TO MONTHS. IT DOES NOT MAINTAIN 


000146 


* 


THE YEAR, HOWEVER, NOR DOES IT RECOGNIZE 29 FEBRUARY 


000147 




IN LEAP YEARS. THE 


SOFTWARE SETS THE DAY AND MONTH 


000148 




LATCHES TO THE DON'T 


CARE STATE AND USES THE REMAINING 


000149 


* 


EIGHT BITS TO HOLD A 


TWO DIGIT BCD YEAR. THE CLOCK 


000150 


* 


MUST BE RESET AT THE 


BEGINNING OF EACH YEAR AND ON 


000151 


* 


29 FEBRUARY IN LEAP 


YEARS. 


000152 


* 






000153 


* 


SET. TIME ASSUMES THAT THE DATE IS VALID AND CORRECT. 


000154 


* 


THE CENTURY IS IGNORED AND MILLISECONDS ARE ALWAYS SET 


000155 


* 


TO ZERO. GET. TIME ALWAYS SETS THE CENTURY TO 19. 


000156 


* 






000157 




REP 


60 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 



TEMPORARY ZERO PAGE 



PCLK 
WKDAY 
CKSUM 
CLKTEMP 



EQU 
EQU 
EQU 
EQU 



CLOCK LOCAL DATA 



PCLOCK 
RETRY 



DS 
DS 



$D0 
$D2 
$D3 
$18D4 



$0A 
$01 



/POINTER TO SAVED PCLOCK 



/THROUGH $18DD - ABSOLUTE 



;PSEUDO CLOCK REGISTERS 



CLOCK HARDWARE ADDRESSES 



CLOCK 

CSEC 

CMIN 

CMON 

LDAY 

CRESET 

STATUS 

* 

WKMON 



STIMOlO 
STIMOll 



STIM015 



STIM016 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

DFB 
DFB 



EQU 
LDX 
LDY 
LDA 
BNE 

I NX 
LDA 
AND 
STA 
DEY 
CPY 
BEQ 
LDA 
ASL 
ASL 
ASL 
ASL 
ORA 
STA 
DEY 
BPL 

LDA 
JSR 
TAX 
LDA 
JSR 
TAY 
LSR 
LSR 
STA 
TYA 
AND 
BNE 
CPX 
BCS 
DEY 
CLC 
TYA 
ADC 
ADC 
STA 
LDA 
JSR 
CLC 
ADC 
SEC 
SBC 
CMP 
BCS 
STA 



$C070 

$02 

$03 

$07 

$0E 

$12 

$14 

8,11,11,7,9,12 
7,10,13,8,11,13 



#$00 
#$12 
#'0' 
STIMOll 



(TIME) , Y 
#$0F 

PCLOCK, X 

#$07 
STIMOlO 
(TIME) , Y 

A 
A 
A 
A 

PCLOCK, X 
PCLOCK, X 

STIMOlO 

PCLOCK+7 
BCDBIN 

PCLOCK+8 
BCDBIN 

A 
A 

WKDAY 

#$03 

STIMG15 

#3 

STIM015 



WKDAY 

WKMON- 1,X 
WKDAY 
PCLOCK+6 
BCDBIN 

WKDAY 

#7 
#8 

STIM016 
PCLOCK+5 



CONVERT TIME FROM 
ASCII TO BCD AND 
TRANSFER TO PCLOCK 



/CALCULATE WEEKDAY 



<SRS 82.162> 
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000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 



STIM030 



STIM040 



STIM050 



LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 

LDA 
STA 
EOR 
STA 
INY 
CPY 
BCC 
STA 

LDA 
PHA 
LDA 
PHA 
ORA 
STA 

LDY 
STY 
LDA 
BMI 

LDX 
STX 

LDA 
STA 
STA 

LDX 
INX 
PHP 
SEI 
STX 
LDA 
LDA 
STA 
LDA 
STY 
LDA 
BNE 
PLP 
CPX 
BCC 

LDX 
STX 
LDA 
ORA 
STA 
INC 
LDA 
LSR 
LSR 
ORA 
STA 

PLA 
STA 
PLA 
STA 

RTS 

PAGE 

EQU 

LDA 

PHA 

LDA 

PHA 

ORA 

STA 

LDY 
STY 



#$D0 

PCLK 

#$FF 

PCLK+1 

#$8F 

$1401+PCLK 

#$A5 

CKSUM 

#$00 

PCLOCK, Y 
(PCLK) , Y 
CKSUM 
CKSUM 

#$0A 
STIM020 
(PCLK) ,Y 

Z .REG 

E.REG 

#BIT0N7 
E.REG 

ISTATUS 
Z .REG 
CLOCK 
STIM050 

#CRESET 
Z .REG 

#$FF 

CLOCK 
CLOCK 

#CSEC-1 



Z.REG 

CLOCK 

PCLOCK, X 

CLOCK 

CLOCK 

Z .REG 

CLOCK 

STIM040 

#CMON 

STIM030 

#LDAY 

Z .REG 

PCLOCK+8 

#$CC 

CLOCK 

Z.REG 

PCLOCK+8 

A 

A 

#$CC 
CLOCK 



E.REG 
Z .REG 



Z.REG 
E.REG 



#BIT0N7 
E.REG 



ISTATUS 
Z .REG 



/POINT (PCLK) TO 8F:FFD0 



/INITIALIZE CHECKSUM 



;SAVE PCLOCK 
; BEHIND 6522 



;SAVE CHECKSUM 



;SAVE ZERO PAGE 



;SAVE ENVIRONMENT 
; AND SET 1 MHZ 



;DOES CLOCK EXIST? 
; NO 



/RESET ALL COUNTERS 



/DISABLE INTERRUPTS 

; (DUMMY READ FOR STATUS) 



;SET CLOCK COUNTER 

; (DUMMY READ FOR STATUS) 



/CHECK STATUS BIT 
/RESTORE INTERRUPTS 



; STUFF YEAR INTO DAY 
; AND MONTH LATCHES 



/RESTORE ENVIRONMENT 
; AND ZERO PAGE 



;SAVE ZERO PAGE 
;SAVE ENVIRONMENT 



;SET 1 MHZ 
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000320 










LDA 


CLOCK 




;DOES CLOCK EXIST? 


000321 










BMI 


GTIM050 




; NO 


A A O O O 


* 
















A A A O A 

000323 










LDA 


#$10 




; ALLOW $10 RETRYS 


A A A O A A 

000324 










STA 


RETRY 






A A A O A IT 

000325 


GTIMOlO 






LDX 


#CM0N+1 






A A A A 

000326 










PHP 








000327 










SEI 






; DI SABLE INTERRUPTS 


000328 


* 
















000329 


GTIM020 






DEX 








A A A t) A 

000330 










BMI 


GTIM030 




; ALL DONE 


000331 










STX 


Z .REG 






A A A O O A 

000332 










LDA 


CLOCK 




;COPY CLOCK COUNTERS 


A A A O O 

000333 










STA 


CLKTEMP, X 




; TO TEMP REGISTERS 


000334 










STY 


Z .REG 






A A A O O IT 

000335 










LDA 


CLOCK 




; CHECK STATUS BIT 


A A A t) t) 

000336 










BEQ 


GTIM020 






A A A t) O ^ 

000337 


* 
















A A A tJ t) A 

000338 










PLP 






; CLOCK READ ERROR 


A A A t) O A 

000339 










DEC 


RETRY 






A A A O /I A 

000340 










BPL 


GTIMOlO 




; TRY AGAIN 


A A A O /IT 

000341 










BMI 


GTIM050 






000342 


* 
















000343 


GTIM030 






PLP 






; RESTORE INTERRUPTS 


000344 










LDX 


#LDAY+1 






000345 










STX 


Z . REG 






000346 










LDA 


CLOCK 




;READ YEAR FROM DAY 


000347 










SEC 






; AND MONTH LATCHES 


000348 










ROL 


A 






000349 










ROL 


A 






A A A O C A 

000350 










DEC 


Z .REG 






000351 










AND 


CLOCK 






000352 










STA 


CLKTEMP+8 






A A A O C O 

000353 


* 
















A A A t) r A 

000354 










LDX 


#$09 






000355 


GTIM040 






LDA 


CLKTEMP, X 




;COPY CLOCK DATA 


000356 










STA 


PCLOCK, X 




; TO PSEUDO CLOCK 


000357 










DEX 








000358 










BPL 


GTIM040 






A A A O C A 

000359 


* 
















A A A O ^ A 

000360 


GTIM050 






LDA 


#$19 






A A A O ^ T 

000361 










STA 


PCLOCK+9 






A A A t) A 

000362 


* 
















000363 










PLA 








000364 










STA 


E . REG 




; RESTORE ENVIRONMENT 


000365 










PLA 








000366 










STA 


Z . REG 




; AND ZERO PAGE 


A A A O ^ T 

000367 


* 
















A A A O ^ A 

000368 










LDY 


#$11 






000369 










LDX 


#$00 






A A A O T A 

000370 


GTIM060 






LDA 


PCLOCK, X 




;GET MOST SIGNIFICANT 


000371 










LSR 


A 




; BCD DIGIT 


000372 










LSR 


A 






000373 










LSR 


A 






000374 










LSR 


A 






000375 










ORA 


#$30 




; CONVERT TO ASCII 


A A A O ""J 

000376 










STA 


(TIME) , Y 






000377 










INX 








000378 










DEY 








000379 










BMI 


GTIM080 






A A A t) A A 

000380 


GTIM070 






LDA 


PCLOCK, X 




;GET LEAST SIGNIFICANT 


000381 










AND 


#$0F 




; BCD DIGIT 


000382 










ORA 


#$30 




; CONVERT TO ASCII 


000383 










STA 


(TIME) , Y 






000384 










DEY 








A A A O A IT 

000385 










CPY 


#$07 






A A A O A 

000386 










BNE 


GTIM060 






A A A O A T 

000387 










INX 








A A A O A A 

000388 










BNE 


GTIM070 






A A A o o n 
000389 


GTIM080 






RTS 








000390 










PAGE 








n n M "3 n 1 










REP 


60 






000392 


















000393 




SUBROUTINE 


DATETIME 








000394 


* 
















000395 


* 


THIS SUBROUTINE READS THE CLOCK AND 


WRITES 


A DATE /TIME 


000396 


* 


STAMP 


TO 


A 


FOUR BYTE BUFFER ON THE CALLER' 


S ZERO PAGE; 


000397 


* 


THE DATA 


FORMAT IS 


SHOWN BELOW. ON 


ENTRY, 


X MUST POINT 


000398 


* 


TO THE 


BUFFER. ON 


EXIT, ALL REGISTERS ARE 


CLOBBERED . 


000399 




IF AN 


ERROR OCCURS, 


CARRY IS SET AND THE BUFFER IS 


000400 


* 


SET TO 


ZERO; OTHERWISE, CARRY IS CLEARED. 
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000401 




















000402 


* BITS: 


7 


6 


5 


4 3 2 


1 









000403 


* X+0 


M 


M 


M 


D D D 


D 


D 






000404 


* X+1 


Y 


Y 


Y 


Y Y Y 


Y 


M 






000405 


* X+2 






MINUTE 










000406 


* X+3 






- 


HOUR - 










000407 


* 


















000408 










REP 






60 




000409 


* 


















000410 


* TEMPORARY 


STORAGE 










000411 




















000412 


OFFSET 








DFB 











000413 


ERRCNT 








DFB 











000414 


CLKREGS 








DS 






5 




000415 


MIN 








EQU 






CLKREGS+0 




000416 


HOUR 








EQU 






CLKREGS+1 




000417 


DAY 








EQU 






CLKREGS+3 




000418 


MON 








EQU 






CLKREGS+4 




000419 


YEAR 








EQU 






CLKREGS+2 




000420 




















000421 




















000422 


DATE TIME 








EQU 










000423 










STX 






OFFSET 




000424 










LDA 






Z .REG 




000425 










PHA 








; SAVE ZERO PAGE 


000426 










LDA 






E .REG 




000427 










PHA 








; AND ENVIRONMENT 


000428 










ORA 






#BITON7+BITON6 


; SET 1 MHZ AND 


000429 










STA 






E .REG 


; ENABLE I/O SPACE 


000430 




















000431 










LDY 






# STATUS 




000432 










STY 






Z.REG 




000433 










LDA 






CLOCK 


;DOES CLOCK EXIST? 


000434 










BMI 






DT030 


; NO 


000435 




















000436 










LDA 






#8 




000437 










STA 






ERRCNT 


; ALLOW 8 RETRYS 


000438 


DTOlO 








LDX 






#CM0N+1 




000439 










PHP 










000440 










SEI 








; DISABLE INTERRUPTS 


000441 




















000442 


DT020 








DEX 










000443 










CPX 






#CMIN 




000444 










BCC 






DT050 




000445 










STX 






Z . REG 




000446 










LDA 






CLOCK 


;READ THE CLOCK 


000447 










STA 






CLKREGS-CMIN, X 




000448 










STY 






Z .REG 




000449 










LDA 






CLOCK 


; CHECK STATUS 


000450 










BEQ 






DT020 




000451 




















000452 










PLP 








; CLOCK READ ERROR 


000453 










DEC 






ERRCNT 




000454 










BPL 






DTOlO 




000455 


DT030 








PLA 










000456 










STA 






E .REG 


; RESTORE ENVIRONMENT 


000457 










PLA 










000458 










STA 






Z.REG 


; AND ZERO PAGE 


000459 










LDX 






#CMON-CMIN 




000460 


DT040 








LDA 






PCLOCK+CMIN, X 




000461 










STA 






CLKREGS, X 




000462 










DEX 










000463 










BPL 






DT040 




000464 










LDX 






PCLOCK+8 




000465 










JMP 






DT060 




000466 


* 


















000467 


DT050 








PLP 








;READ YEAR FROM LATCHES 


000468 










LDA 






#LDAY+1 




000469 










STA 






Z .REG 




000470 










LDA 






CLOCK 




000471 










SEC 










000472 










ROL 






A 




000473 










ROL 






A 




000474 










DEC 






Z .REG 




000475 










AND 






CLOCK 




000476 










TAX 










000477 


* 


















000478 










PLA 










000479 










STA 






E.REG 


; RESTORE ENVIRONMENT 


000480 










PLA 










000481 










STA 






Z .REG 


; AND ZERO PAGE 
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000482 


















000483 


DT060 TXA 














000484 




JSR 




BCDBIN 








; CONVERT YEAR TO BINARY 


000485 




STA 




YEAR 










000486 




LDA 




MON 








; CONVERT MONTH AND DAY 


000487 




JSR 




BCDBIN 








; TO BINARY THEN 


000488 




ASL 




A 








; COMBINE WITH YEAR 


000489 




ASL 




A 








; TO FORM DATE STAMP 


000490 




ASL 




A 










000491 




ASL 




A 










000492 




ASL 




A 










000493 




STA 




MON 










000494 




ROL 




YEAR 










000495 




LDA 




DAY 










000496 




JSR 




BCDBIN 










000497 




ORA 




MON 










000498 




LDX 




OFFSET 










000499 




STA 




0, X 










000500 




LDA 




YEAR 










000501 




STA 




1, X 










000502 




LDA 




MIN 








; CONVERT MINUTE 


000503 




JSR 




BCDBIN 










000504 




STA 




2,X 










000505 




LDA 




HOUR 








; CONVERT HOUR 


000506 




JSR 




BCDBIN 










000507 




STA 




3,X 










000508 




CLC 














000509 




RTS 














000510 




PAGE 














000511 




REP 




60 










000512 


* 
















000513 


* 


SUBROUTINE BCDBIN 














000514 


* 
















000515 


* 


THIS SUBROUTINE CONVERTS A BYTE 


FROM BCD 


TO 


BINARY. 


000516 




THE BYTE IS PASSED 


ANE 


RETURNED 


IN A. 


THERE 


IS NO 


000517 


* 


ERROR CHECKING. Y 


IS 


DESTROYED 


AND X 


IS 


UNCHANGED. 


000518 


* 
















000519 




REP 




60 










000520 


* 
















000521 


BCDBIN EQU 




* 










000522 




PHA 














000523 




LSR 




A 








/ISOLATE TENS DIGIT FOR 


000524 




LSR 




A 








; INDEXING THE TABLE 


000525 




LSR 




A 










000526 




LSR 




A 










000527 




TAY 














000528 




PLA 














000529 




AND 




#$0F 








;GET UNITS 


000530 




CLC 














000531 




ADC 




TENS, Y 








;ADD IN TENS 


000532 




RTS 














000533 


* 
















000534 


TENS DFB 




00,10,20 


,30,40 


,50 


,60 


,70,80,90 


000535 




PAGE 














000536 




REP 




60 










000537 


* 
















000538 


* 


SOS CALL $64 — JOYSTICK INPUT 










0005 Jy 


* 


JOYSTICK ( IN . J . MODE ; 


OUT. J. VALUE) 








000540 


* 
















000541 




REP 




60 










000542 


* 
















000543 


















000544 


AD 


INPUT EQU 




$D0 










000545 


AD 


TEMP EQU 




$D1 










000546 


* 
















000547 


PA 


SWO EQU 




$C061 








;PORT A, SWITCH 


000548 


PA 


SWl EQU 




$C063 








;PORT A, SWITCH 1 


000549 


PB 


SWO EQU 




$C062 








;PORT B, SWITCH 


000550 


PB 


SWl EQU 




$C060 








;PORT B, SWITCH 1 


000551 


* 
















000552 


AD 


SELO EQU 




$C058 








;A/D SELECT CONTROLS 


n n M C C O 

00U5D3 


AD 


SELl EQU 




$C05E 










000554 


AD 


SEL2 EQU 




$C05A 










000555 


AD 


CHRG EQU 




$C05C 








;A/D RAMP CHARGE / 


000556 


AD 


STRT EQU 




$C05D 








START TIMEOUT 


000557 


AD 


FLAG EQU 




$C066 








;A/D TIMEOUT FLAG 


000558 


* 
















000559 


TCHARGE EQU 




500 








/CHARGE TIME FOR A/D 


000560 


TOFFSET EQU 




360 








/OFFSET TIME TO A/D WINDOW 


000561 


















000562 


ANALOG EQU 




$F4A8 








;ROM ENTRY FOR ANALOG INPUT 
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r\ n n c ^ 


AN LOG 1 


EQU 


SF4AB 




; INTERRUPT REENTRY 


000564 


D . T2 


EQU 


$FFD8 




; TIMER 


000565 


D. ACR 


EQU 


$FFDB 




;AUXILIARY CONTROL REGISTER 


000566 


D. IFR 


EQU 


$FFDD 




; INTERRUPT FLAG REGISTER 


000567 












000568 


ENSEL 


EQU 


$CODC 






A A A C /'A 

00056y 


ENS 10 


EQU 


$CODE 






000570 












000571 












000572 


JOYSTICK 


EQU 








000573 




LDA 


J . MODE 




/VALIDATE J. MODE 


000574 




CMP 


#$08 






000575 




BCC 


JSC 10 






000576 




LDA 


#>BADJMODE 






000577 


JS .ERR 


JSR 


SYSERR 






A A A C "7 O 

0U057y 












000579 


JSOlO 


JSR 


AD. SETUP 




; SET UP RESOURCES 


000580 




BCS 


JS . ERR 






000581 




LDA 


J . MODE 




;READ PORT B OR PORT A? 


000582 




AND 


#BIT0N2 






000583 




BNE 


JS020 






000584 




LDA 


PB . SWO 




; PORT B 


A A A C O IT 

000585 




LDX 


PB . SWl 






A A A C O 

000586 




LDY 


#$01 






A A A C O "7 




BNE 


JS030 






000588 


JS020 


LDA 


PA. SWO 




; PORT A 


000589 




LDX 


PA. SWl 






000590 




LDY 


#$03 






000591 


JS030 


STY 


AD. INPUT 




; SAVE INPUT SELECT 


A A A C AO 

000592 




AND 


#BIT0N7 






000593 




BEQ 


JSC 40 






000594 




LDA 


#$FF 






000595 


JS040 


LDY 


#$00 






A A A C A 

000596 




STA 


(J. VALUE) , Y 




; RETURN SWITCH 


000597 




TXA 








000598 




AND 


#BIT0N7 






000599 




BEQ 


JS050 






000600 




LDA 


#$FF 






A A A A 1 

OOOdOI 


JS050 


INY 








AAA ^ A O 

000602 




STA 


( J . VALUE ) , Y 




; RETURN SWITCH 1 


A A A A 

000603 












A A A ^ A 

000604 




LSR 


J . MODE 






A A A A (T 

000605 




BCC 


JS060 






000606 




LDA 


AD. INPUT 






000607 




JSR 


AD . READ 




;READ A/D 


000608 




LDY 


#$02 






000609 




STA 


( J . VALUE ) , Y 




; RETURN X AXIS 


A A A T A 

000610 


JS060 


INC 


AD . INPUT 






A A A ^ T T 

000611 




LSR 


J . MODE 






000612 




BCC 


JS070 






A A A ^ T *?> 

000613 




LDA 


AD . INPUT 






A A A T A 

UU U bi4 




JSR 


AD . READ 




;READ A/D 


000615 




LDY 


#$03 






000616 




STA 


(J. VALUE) , Y 




/RETURN Y AXIS 


000617 












000618 


JS070 


JSR 


AD . CLNUP 




; CLEAN UP 


000619 




RTS 






; AND EXIT 


A A A ^ O A 

000620 




PAGE 








A A A Z" A T 

000621 




REP 


60 






A A A A O 

000622 


* 










A A A O O 

00062 3 


* SUBROUTINE 


AD. SETUP 








000624 


* THIS SUBROUTINE SETS 


UP THE ENVIRONMENT 


AND 


RESOURCES 


000625 


* FOR READING THE JOYSTICKS. IF AN ERROR 


OCCURS, CARRY 


000626 


* IS SET AND 


AN ERROR 


NUMBER IS RETURNED 


IN A. 




000627 


* OTHERWISE, 


CARRY IS 


CLEARED . 






A A A A O 

000628 


* 










A A A A A 

000629 




REP 


60 






A A A ^ O A 

000630 


AD . SETUP 


EQU 


* 






A A A Z" O T 

000631 




LDA 


#JOYSIRSIZ 






A A A O A 




LDX 


#>JOYSIRTBL 






000633 




LDY 


#<JOYSIRTBL 






000634 




JSR 


ALLOCS IR 




/ALLOCATE RESOURCES 


000635 




BCC 


ADSOlO 






000636 




LDA 


#>XNORESRC 






000637 




RTS 








000638 


ADSOlO 


LDA 


E.REG 






000639 




AND 


#$7F 




;SET 2 MHZ, 


000640 




ORA 


#$43 




; ENABLE ROM, S I/O SPACE 


000641 




STA 


E.REG 






000642 




PHP 








000643 




SEI 
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r\ f\ ^ A A 


LDA 


D . ACR 






000645 


AND 


#BIT0FF5 




;SET UP TIMER 


A A A /I /" 

000646 


STA 


D.ACR 






000647 


PLP 








000648 


BIT 


ENSEL 




; DISABLE ENSEL 


A A A /I A 

000649 


BIT 


ENS 10 




;SET ENS 10 FOR INPUT 


A A A 1^ C A 


RTS 








000651 


* 








000652 


JOYSIRTBL EQU 


* 






000653 


DFB 


$oc, 0,0,0, 





;ENSIO 


000654 


DFB 


$0D, 0,0,0, 





; ENSEL 


000655 


DFB 


$0E, 0,0,0, 





; 6522 D.T2 


000656 


JOYSIRSIZ EQU 


*-JOYSIRTBL 




A A A ^ C 

000657 


REP 


60 






A A A Z" c n 

000658 


* 








A A A r A 

000659 


* SUBROUTINE AD.CLNUP 








000660 


* THIS SUBROUTINE RESTORES THE ENVIRONMENT AND 


RELEASES 


000661 


* THE RESOURCES AFTER READING THE JOYSTICKS. 




000662 


* 








000663 


REP 


60 






000664 


AD.CLNUP EQU 


* 






000665 


LDA 


E.REG 






000666 


AND 


#$3C 




;RESTORE RAM AT $C000 & 


A A A Z' T 

000667 


STA 


E.REG 






A A A O 

000668 


LDA 


#JOYSIRSIZ 




000669 


LDX 


#>JOYSIRTBL 




000670 


LDY 


#<JOYSIRTBL 




000671 


JSR 


DEALCSIR 




/DEALLOCATE RESOURCES 


000672 


RTS 








000673 


PAGE 








A A A Z' T A 

000674 


REP 


60 






A A A ^ T C 

000675 


* 








A A A ^ T 

000676 


* SUBROUTINE AD. READ 








A A A "1 ^ 

000677 


* THIS SUBROUTINE READS A 


SPECIFIED 


A/D INPUT 


AND RETURNS 


000678 


* AN 8 BIT RESULT. IT ASSUMES THAT 


THE A/D RESOURCES HAVE 


000679 


* BEEN ALLOCATED, THE I/O 


SPACE AND 


$FOO0 ROM 


HAVE BEEN 


000680 


* SELECTED, AND THE SYSTEM IS RUNNING IN 2 MHZ 


MODE . 


000681 


* 








A A A O O 

000682 


* PARAMETERS : 








A A A 

000683 


* A: A/D INPUT PORT (0 


-7) 






000684 


* 








000685 


* RETURN VALUE: 








A A A O 

000686 


* A: RESULT (0 - 255) 








000687 


* X, Y: UNDEFINED 








000688 


* 








000689 


REP 


60 






000690 


* 








000691 


AD. READ EQU 


* 






AAA Z" A O 

000692 


LSR 


A 




/SELECT THE APPROPRIATE 


000693 


BIT 


AD.SELO 




; A/D INPUT 


000694 


BCC 


ADROlO 






A A A A IT 

000695 


BIT 


AD.SELO+1 






000696 


ADROlO LSR 


A 






000697 


BIT 


AD.SELl 






000698 


BCC 


ADR020 






000699 


BIT 


AD.SELl+1 






000700 


ADR020 LSR 


A 






A A A T A 1 

000/01 


BIT 


AD.SEL2 






000702 


BCC 


ADR030 






A A A A 

000703 


BIT 


AD.SEL2+1 






000704 


ADR030 PHP 








000705 










000706 


ADR040 CLI 








000707 


BIT 


AD.CHRG 




/CHARGE A/D CAPACITOR 


000708 


LDA 


#>TCHARGE 






A A A A A 

000709 


STA 


D.T2 






000710 


LDA 


#<TCHARGE 






000711 


STA 


D.T2+1 






000712 


LDA 


#BIT0N5 






00071 J 


ADR050 BIT 


D.IFR 






000714 


BEQ 


ADR050 






000715 










000716 


SEI 








000717 


SEC 








000718 


LDA 


#>TOFFSET 






000719 


STA 


D.T2 




;SET UP TIMER 


000720 


LDA 


#<TOFFSET 






000721 


BIT 


AD.STRT 




; START A/D TIMEOUT 


000722 


JSR 


ANALOG 




/MEASURE CONVERSION TIME 


000723 


BCC 


ADR070 






000724 


* 
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000725 


ADR060 CLI 




000726 


SEI 




000727 


BIT 


AD . FLAG 


OUU /2o 


BPL 


ADRO 4 


A A A O A 

000729 


JSR 


ANLOGl 


A A A O A 

0007i0 


BCS 


ADRO 60 


A A A ^ O T 

000731 






000732 


ADR070 PLP 




000733 


EOR 


#$FF 


000734 


BMI 


ADRO 80 


000735 


STA 


AD . TEMP 


000736 


TYA 




A A A T O ^ 

000737 


EOR 


#$FF 


A A A o n 

000738 


LSR 


AD . TEMP 


000739 


ROR 


A 


000740 


LSR 


AD . TEMP 


000741 


ROR 


A 


000742 


LSR 


AD . TEMP 


000743 


BNE 


ADRO 90 


000744 


ROR 


A 


000745 


ADC 


#0 


000746 


RTS 




000747 


ADR080 LDA 


#0 


000748 


RTS 




000749 


ADR090 LDA 


#$FF 


000750 


RTS 




000751 


PAGE 




000752 


REP 


60 


000753 


* 




000754 


* SYSTEM COLD START 




000755 


* 




000756 


* THIS ROUTINE IS CALLED 


TO TELL THE 


000757 


* SYSTEM. IT CLEARS THE 


SCREEN, DISP 


A A A "7 C O 

000 /DO 


* OVERWRITES BANKED MEMORY, AND HANGS 


000759 


* PERFORMS A HARD RESET. 




0007 60 






0007 61 


REP 


60 


000762 






A A A T ^ 

000763 


* 




A A A ^ yi 

000764 


COLDSTRT EQU 


* 


000765 


SEI 




A A A ^ 

000766 


LDA 


#$40 


A A A ^ ^ 

000767 


STA 


$FFCA 


0007 68 


LDA 


#$67 


0007 69 


STA 


E.REG 


000770 


LDA 


#$00 


000771 


STA 


Z .REG 


000772 


* 




000773 


LDX 


SYSBANK 


000774 


LDA 


#$BF 


000775 


LDY 


#$00 


A A A ^ "7 

000776 


STY 


MEMORY 


000777 


CSOlO STA 


MEMORY+1 


000778 


STX 


B.REG 


000779 


LDA 


#$A0 


000780 


CS020 STA 


(MEMORY) , Y 


000781 


DEY 




A A A O A 

000782 


BNE 


CS020 


000783 


DEC 


MEMORY+1 


000784 


BNE 


CS020 


A A A ^ O C 

000785 


DEX 




000786 


BPL 


CSOlO 


000787 






000788 


LDY 


#6 


000789 


CS030 STA 


$C050, Y 


A A A T A A 

000790 


DEY 




000791 


BPL 


CS030 


000792 


* 




A A A T A 


LDY 


#BOOTLEN 


000794 


CS040 LDA 


BOOTMSG- 1,Y 


000795 


STA 


BOOTADR-1, Y 


UU u / y D 


DEY 




000797 


BNE 


CS040 


000798 


* 




000799 


LDA 


#$77 


000800 


STA 


E.REG 


000801 


JMP 


* 


000802 


PAGE 




000803 


MSB 


ON 


000804 


BOOTMSG ASC 


"INSERT SYS 


000805 


BOOTLEN EQU 


* -BOOTMSG 



/PROCESS AN INTERRUPT 

STILL TIMING? 

NO — START OVER 
YES — CONTINUE 



/NORMALIZE RESULT 
/RESULT < 



/RESULT > 255 



A MESSAGE, 



/SHUT DOWN INTERRUPTS 
/ AND IGNORE NMI 



/DISABLE RESET 
/USE PAGE ZERO 



/SET MEMORY TO BLANKS 



/SELECT 40 COLUMN 

/ BLACK S WHITE TEXT 



/PRINT BOOT MESSAGE 



/ENABLE RESET 
/HANG UNTIL RESET 
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000806 


BOOTADR 


EQU 


40-BOOTLEN/2+$628 


000807 




MSB 


OFF 


000808 




LST 


ON 


000809 


ZZEND 


EQU 


* 


000810 


ZZLEN 


EQU 


ZZEND-ZZORG 


000811 




IFNE 


ZZLEN-LENUMGR 


000812 




FAIL 


2,"S0S0RG FILE IS INCORRECT FOR UMBR 


000813 




FIN 




000814 








000815 






************************************************** 


000816 


* END OF APPLE 


/// SOS 


1.3 SOURCE CODE FILE: UMGR.SRC 


000817 


************************************************************************* 


000818 








End of 


File — Lines: 


818 Characters: 20770 
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FILE: "SOS. VOLU^E. TEXT' 



A A A T 


************************************************************************* 


A A A A n 


* 


APPLE /// SOS 1.3 


SOURCE CODE FILE: 


VOLUME 






000003 








^*********************************** 


000004 


* 


ASSEMBLER: APPLE ] 


[ 6502 ASSEMBLER 


from APPLE COMPUTER TOOLKIT 




000005 














000006 




PAGE 










A A A A A 

000007 




REP 


40 








A A A A A n 

000008 


* 


NAME : VOLUME 










000009 


* 


FUNCTION: RETURN VOLUME INFO 








A A A A T A 

000010 


* 


INPUT : DEVICE NAME 








000011 


* 


OUTPUT : THE INFO 










000012 


* 


VOLATILE: ALL REGS 










000013 




REP 


40 








000014 














000015 


VOLUME EQU 


* 








A A A A T f 

000016 




LDA 


C.DNAMP 




TRANSFER DEVICE NAME 




000017 




STA 


DVNAMP 




NAME FOR DMGR 




000018 




LDA 


C.DNAMP+1 








A A A A T A 

ooooiy 




STA 


DVNAMP+1 








000020 




LDA 


SISTER+C. DNAMP+1 


AND XTND 




000021 




STA 


SISTER+DVNAMP+1 






000022 




JSR 


GETDNUM 




GET DEVNUM 




000023 




BCC 


V0L7 




— >SOME KINDA ERROR 




000024 




RTS 






RETURN ERROR 




000025 


V0L7 BMI 


V0L2 




=>IT ' S GOOD. . . 




A A A A O 

000026 




LDA 


#N0TBLKDEV 




NOT BLOCKED 




000027 




JMP 


VOLERR 




=>RETURN THE ERROR 




000028 


* 












A A A A O A 

000029 


* 


UNCONDITIONALLY READ ROOT DIRECTORY 








000030 


* 












000031 


V0L2 EQU 


* 








000032 




LDA 


SCRTCH+1 








000033 




STA 


DEVNUM 




SETUP DEV NUMBER 




A A A A O A 

000034 




LDA 


#2 




BLKNUM=2 




A A A A O IT 

000035 




LDX 


#0 








000036 




JSR 


GETROTO 




GET IT PLEASE 




A A A A O 

000037 




LDA 


#VNFERR 




ERROR CODE 




000038 




BCC 


VOLS 




BRANCH IF NO ERROR ON 


READ 


000039 




RTS 






=>ERROR, PASS IT ON. 




000040 














000041 


VOLS LDA 


#>VCB 




SET VCBPTR TO THE 




000042 




STA 


VCBPTR 




FIRST OF THEM 




A A A A A O 

000043 




LDA 


#<VCB 








000044 




STA 


VCBPTR+1 








000045 


* 












000046 


* 


IS THIS VOLUME SOS 


OR OTHER? 








000047 


* 












000048 




JSR 


TSTSOS 




WHICH KIND? 




000049 




BCC 


VLOGGED 




->IT'S SOS 




000050 




JMP 


VNOTSOS 




=>NOT SOS 




000051 


* 












A A A A C O 

000052 


* 


IS THIS SOS VOLUME 


LOGGED IN? 








A A A A C 

000053 


* 












000054 


VLOGGED EQU 


* 








A A A A C IT 

000055 




JSR 


CMPVCB 




DOES VOLNAME MATCH? 




A A A A r 

000056 




BCC 


VFOUND 




— >YES, WE KNOW ABOUT 


IT 


000057 




JSR 


VNXTVCB 




BUMP TO NEXT 




000058 




BCC 


VLOGGED 




->TRY 'EM ALL. . . 




000059 




BCS 


VNEW 




=>NOT FOUND, IT'S NEW 


^ D D 7\ "MT* U 


000060 


* 












A A A A ^ T 

000061 


* 












000062 


* 


IT'S BEEN LOGGED IN BEFORE: 








000063 


* 


IS IT SWAPPED IN 


OR OUT? 








000064 


* 












000065 


VFOUND EQU 










000066 




LDY 


tVCBSWAP 




INDEX TO IT 




000067 




LDA 


(VCBPTR) , Y 




SWAPPED? 




000068 




BPL 


VFOUNDl 




=>IN. RETURN THE INFO 




000069 


* 












000070 


* 


SWAPPED OUT. BEFORE WE SWAP IT 








000071 


* 


IN, MAKE SURE IT 


BELONGS ON 








000072 


* 


THIS DEVICE! 










000073 


* 












000074 




LDY 


#VCBDEV 




INDEX TO IT 




000075 




LDA 


(VCBPTR) , Y 




GET ITS DEVICE 




000076 




CMP 


DEVNUM 




CORRECT DEVICE? 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



BEQ VSWAPIN 
LDA #DUPVOL 
JMP VOLERR 

* 

* NOW SWAP- IN THIS VOLUME: 



EQU 
JSR 
JMP 

LDY 
LDA 
CMP 
BEQ 
LDY 
LDA 
BPL 
LDA 
BNE 
LDY 
LDA 
STA 
REP 



SWAPIN 
VINFO 

#VCBDEV 

(VCBPTR) , Y 
DEVNUM 
VINFO 
#VCBSTAT 

(VCBPTR) , Y 
VF0UND2 
tDUPVOL 
VOLERR 
#VCBNML 
#0 

(VCBPTR) , Y 
40 



IT'S A BRAND NEW VOLUME. 
GUESS WE'LL HAVE TO LOG IT IN: 



* RAN OUT OF MT 
VNFIL 



* ALL OPEN 



EQU 
LDA 
JSR 
BCC 
LDA 
RTS 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
BEQ 
LDY 
LDA 
CMP 
BNE 
LDY 
LDA 
BPL 
LDA 
JSR 
BCC 
LDA 
RTS 
JSR 
BCC 
S . . . 
LDY 
LDA 
BPL 
JSR 
BCC 
REPORT 
LDA 
BNE 
EQU 
JSR 
REP 



DEVNUM 
SWAPOUT 
VNEWl 
#XIOERROR 

#>VCB 
VCBPTR 
#<VCB 
VCBPTR+1 
#VCBNML 
(VCBPTR) , Y 
VLOGIN 
#VCBDEV 
(VCBPTR) , Y 
DEVNUM 
VFREEX 
tVCBSTAT 
(VCBPTR) , Y 
VLOGIN 
DEVNUM 
SWAPOUT 
VFREEX 
#XIOERROR 

VNXTVCB 

VFREE 
FIND W/O FILES 

#VCBSTAT 
(VCBPTR) , Y 

VLOGIN 

VNXTVCB 

VNFIL 
VCBFULL 

#FCBFULL 

VOLERR 

LOGVCB 
40 



* RETURN ALL THE NICE INFO: 



EQU 
LDA 
LDY 
STA 
INY 
STA 
STA 
STA 
JSR 

LDX 
LDY 



#0 

#VCBTFRE 
(VCBPTR) , Y 

(VCBPTR) , Y 
REQL 
REQH 
TSFRBLK 

VCBPTR 
#0 



=>YES 

IF FOR ANOTHER DEV, 
THEN IT'S AN ERROR! 



SWAP IT IN 

AND RETURN THE INFO 



; SAME DEVICES? 

; YES; RETURN THE INFORMATION 

; OPEN FILES? 
; BRANCH IF NOT 

; ELSE REPORT DUPLICATE VOLUME ERROR (BRANCH ALWAYS) 
; MOVE THE LOGIN TO THIS NEW DEVICE 
; BY UNLOGGING THE OLD 

; AND LOGGING IN THE NEW (DROP INTO VNEW) 



PASS A REG TO SWAPOUT 

SWAP ANY ACTIVE VOL ON THIS DEVICE 

BRANCH ON NO ERROR 



FIND AN EMPTY VCB 



EMPTY VCB? 

ITS FREE, USE IT 

OR ONE WITH SAME DEVICE 

BRANCH IF NO DEVICE MATCH 

AND NO OPEN FILES 

BRANCH IF OK TO REUSE THIS VCB 

THEN WE MUST SWAP OUT THIS VOLUME 

SWAPOUT PROCEEDED OK 
ELSE REPORT ERROR 

TRY NEXT 
MORE TO COME 



AND LOGIN THIS ONE 



FETCH VOLUME FREE BLOCK COUNT 

FORCE RESCAN OF ALL 

BITMAPS 

TO MAKE SURE VCB INFO CURRENT 
FREE BLOCKS 



GET VCB INDEX 
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VINF02 



000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 

000186 * 

000187 VNOT 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 

000197 * 

000198 VNS2 
000199 
000200 
000201 * 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 



EQU 
LDA 
STA 
INX 
INY 
CPY 
BNE 

LDY 
LDA 
TAY 
EQU 
LDA 
STA 
DEY 
BPL 
CLC 
BCC 



VCB+VCBTBLK,X 
(C.OUTBLK) , Y 



#4 

VINFOl 



#0 

(VCBPTR) , Y 



(VCBPTR) , Y 
(C.OUTVOL) , Y 



VINF02 
VOLRET 



LERR EQU * 

SEC 

LRET EQU * 

RTS 
PAGE 

REP 40 
THIS ISN'T A SOS VOLUME. MARK 
THE ACTIVE VOL THIS DEVICE 
SO THAT IT GETS CHECKED LATER: 



EQU 
LDY 
LDA 
CMP 

BNE 
LDY 
LDA 
BPL 
ORA 
STA 

EQU 
JSR 

BCC 



#VCBDEV 
(VCBPTR) , Y 
DEVNUM 

VNS2 
tVCBSTAT 
(VCBPTR) , Y 
VNS2 

#DSWITCH 
(VCBPTR) , Y 



VNXTVCB 

VNOTSOS 



NAME i 
FUNCTION; 
INPUT : 
OUTPUT 



VOLATILE 



LDA INOTSOS 
BNE VOLERR 
SKP 5 
VNXTVCB 

BUMP VCBPTR TO NEXT VCB 
NOTHING 

VCBPTR UPDATED 
'BCC IF MORE TO GO 
'BCS' IF DONE 

AC 



EQU 
LDA 
CLC 
ADC 
STA 
RTS 



#VCBSIZE 
VCBPTR 



CREATE, 4, 1 



MOVE TOTAL 
BLOCKS AVAIL 



; AND FREE ONES TOO 



; NOW DO VOLNAME 



IS VCB FOR THIS 
DEVICE? 



INDEX TO IT 
GET STATUS 
=>NOT ACTIVE. 
SET 'SWITCHEROO' 
PUT IT BACK 



GET NEXT VCB 
=>TRY 'EM ALL. 



GIVE THE ERROR 
(BRANCH ALWAYS) 



; BUMP IT 

; CARRY SET IF END OF PAGE 



************************************************************************* 
* END OF APPLE /// SOS 1.3 SOURCE CODE FILE: VOLUME 

************************************************************************* 



End of File 



Lines: 225 Characters: 7048 



Total number of files : 58 
Total file lines : 17223 

Total file characters : 546786 
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